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Il mensile con disco programmi per Apple II 
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Millenote. A proposito di musica, come farne a me¬ 
no in un gioco o nella presentazione di un programma? 
Ecco una routine per comporre brani lunghi fino a sei 
minuti, con numerosi effetti particolari. 


Gin. E' il gioco di moda: una scalaquaranta rivista e al¬ 
quanto complicata, resa entusiasmante. Per calcolare 
i punti, però, ci vogliono pazienza e amor di calcolo. 
Oppure un programma che... 


Grafica. La gestione delle figure a blocco riserva an¬ 
cora qualche sorpresa: l'animazione veloce senza 
scambio di pagina, per esempio. Ecco come si fa, 
quando si fa e quello che non si deve fare. 


Le rubriche: 6 -Applichi 
8-Applicosa 
38-One - Liners 
45 - Mac News 
90 -Applettere 

92 -Appiihelp 

93 - Disk Service 
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sommario 


Adesso musica. In un crescendo inarrestabile, l'in¬ 
formatica musicale ha messo tutti in grado di capire e 
comporre musica. Merito anche del software, sempre 
più ricco e professionale. 


Reset. Un aiuto per chi programma in MS Basic e vuo¬ 
le risparmiare un po' di tempo: questa utility breve ma 
preziosa consente il resettaggio automatico dei menù 
dopo la correzione di un programma. 


Planetario. La notte sul video si muove come quella 
vera. Potete indicare una stella per saperne il nome, o 
cambiare due dati per vedere il cielo di un'altra città, o 
stare a guardare, o stampare... 
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Scatola nera. Bombardate di atomi la scatola chiu¬ 
sa e studiate gli angoli di riflessione; potrete dedurre 
le posizioni degli atomi che stanno dentro la scatola. 
Un classico tra i giochi di deduzione. 


Cronometro. Un nuovo, simpatico e potente acces¬ 
sorio per la scrivania del Macintosh: un cronometro al 
sessantesimo di secondo che sa anche stampare i no¬ 
mi dei tempi parziali. 


Supershopper. D'estate più che mai, occhio al frigo¬ 
rifero! Ottimizzare acquisti e scorte è un'arte da impa¬ 
rare. Magari con l’aiuto di un geniale database che 
stampa anche la lista della spesa. 


Radìon Tyrant. Molte le guardie nascoste nella reg¬ 
gia di Radion: a voi scoprirle tutte, impostando una 
buona strategia e segnando i risultati sull'apposita gri¬ 
glia. Per Macintosh. 


Text file. Per fare qualche correzione a un listato, l'i¬ 
deale è poterlo trattare come file di testo, senza dover 
uscire dall'MS Basic per caricare il MacWrite. Con que¬ 
sta utility non è un problema. 
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Mac// 

Un emulatore software di 
Apple//+ e Apple//e per 
Macintosh 512: basta 
inserire il dischetto Mac// in 
un Macintosh, ed eccolo 
trasformato in un Apple//. 
Con il Dos e il ProDos. 



è un programma JRD 
edito in Italia 


da Editronica Srl. 

Acquistalo subito. 


Per ricevere Mac// basta compilare 
e spedire subito questo 
tagliando a Editronica Srl, 

Corso Monforte 39, 20122 Milano. 


V/ jft // 
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Mozart ripeteva al pianoforte, alla perfezione, qual¬ 
siasi brano ascoltato anche una volta sola: ai suoi tem - 
pi non esistevano né registratori né giradischi. Ma era 
in grado anche di trascriverlo pari pari sul pentagram - 
ma, senza neppure aver mai visto lo spartito originale. 
Pensate: nota per nota, a mano. Ebbene, anche se og - 
gi esistono musicassette e compact disc, uno dei più 
grossi problemi delle case editrici musicali è ancora 
quello della stampa degli spartiti: le note non si posso - 
no comporre né col piombo delle vecchie tipografie, 
né con la fotocomposizione. E volete sapere chi le sta 
aiutando? Il Macintosh, con la miriade dei suoi pro¬ 
grammi musicali, e la stampante Laser. 

Ma scrivere le note sullo schermo grazie al mouse e 
poi stamparle ad altissima qualità in un battibaleno 
non è tutto: il Mac sta diventando lo strumento prefe¬ 
rito di qualsiasi musicista perché offre opportunità i - 
naudite in tutta la storia della musica. Pensate se Cho - 
pin, Wagner o Verdi avessero potuto, anziché strim - 
pellare con un dito e poi faticosamente annotare, po¬ 
sare le note sul rigo e poi farsele suonare direttamente 
da un'orchestra di sedici strumenti, modificare sul vi - 
deo crome e biscrome e tornare a riascoltare il tutto 
prima di procedere... 

La rivoluzione che il computer sta introducendo nel 
mondo della musica è in realtà forse ancor più clamo - 
rosa di quella che avanza negli uffici. I non addetti ai 
lavori ne hanno percepito finora solo qualche aspetto 
superficiale: si vedono in giro più tastiere di sintetiz¬ 
zatori che sassofoni o cornette tradizionali. Ma le tra - 
sformazioni sono ben più fondamentali: oggi si pos¬ 
sono inventare nuovi suoni, disegnandone la curva; si 
possono sintetizzare suoni antichi, rivisitandone gli 
splendori; e si possono suonare intere orchestre, ma - 
gari in stereofonia, senza nessun altro strumento in 
mano oltre alla tastiera del computer. 

Di questa rivoluzione dolcissima Apple II e Madnto - 
sh sono fra i protagonisti principali. Ecco perché Ap - 
plicando dedica alla musica la copertina di questo nu - 
mero, con una guida al miglior software per profes¬ 
sionisti e dilettanti del pentagramma. 

Stefano Benvenuti 
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Mac e gli amici 
della Versilia 

"Preparare le mille in¬ 
formazioni necessarie al 
turista, aggiornarle e 
stamparle in un opuscolo 
ben curato ed elegante è 
stato proprio un lavoro a- 
datto al Mac. Così come 
lo è stato realizzare i no¬ 
stri giornali: La Cop¬ 
piola, L'Imbarcatello e 
CiAlVe , organizzare e cu¬ 
rare la dodicesima edizio¬ 
ne del Premio satira poli¬ 
tica e redigerne il catalo¬ 
go". Bella, gioviale, lu¬ 
minosa, parla con giusto 
orgoglio dei suoi più re¬ 
centi prodotti, nati dall'in- 
tuizione di potenzialità 
che non è facile cogliere: 
"Il prodotto editoriale, so¬ 
prattutto se di dimensio¬ 
ni ridotte, è in grado più 
di ogni altro di mettere 
in risalto le possibilità di 
un computer altamente 
creativo come il Mac". 

Applicando dunque 
non è più sola: che nel 
Mac c’è una tipografia a- 
desso l’ha scoperto anche 
lei, la maliarda dallo 
sguardo azzurro mare che 
con il suo recente exploit 
editoriale ha dimostrato 
di essere geniale come uh 
direttore, colta come una 
giornalista colta, brava 
come una redattrice bra¬ 
va, instancabile come un 
caporedattore, gentile ed 
efficiente come una segre¬ 
taria di redazione... 

Ma questa lei dalle mil¬ 
le virtù chi è? 

Le ha dato il nome un 
forte del diciottesimo se¬ 
colo, attorno al quale ve¬ 
nivano accatastati un tem¬ 
po i marmi pronti per 
l’imbarco e si affollano 
oggi i turisti, richiamati 
da un mare bellissimo e 
famoso, da un paesaggio 
dolce, da una vitalità cul¬ 
turale densa di iniziative 
e sorprese. E' Forte dei 
Marmi. 

Una città, tutta intera, 
è il personaggio Macinto¬ 



sh che Applicando ha in¬ 
tervistato in questo nume¬ 
ro. Una città famosa per 
le sue attrattive turistiche 
ma non meno per le sue 
molte e fortunate iniziati¬ 
ve culturali. E, adesso, 


senso di appartenenza al¬ 
la città e un vivace deside¬ 
rio di dimostrarne le pos¬ 
sibilità". Franco Calotti, 
Emilio Tarabella, Lilio 
Tarabella e gli altri prota¬ 
gonisti della rivoluzione 


I primi 

del mensile fortemarmino "L'Imbarcatello", diretto da 
Guerrino Viti e realizzato interamente con il sistema 
Apple Edit. A destra, "La Coppiola", il foglio di una 
contrada di Forte dei Marmi. 


FESTIVAL della 
CANZONE diContra 

4 e S Aprile I486 - ore 21 


PASTICCERIA - SEMIFREDDI - GELA - * 


destinata a un nuovo suc¬ 
cesso per avere saputo in¬ 
tuire l'importanza del¬ 
l'evoluzione tecnologica 
in campo editoriale. Ma 
come si è potuto verifica- 
re questo slancio colletti¬ 
vo, quando di solito la di¬ 
sponibilità al rischio e al¬ 
l’innovazione è un feno¬ 
meno che interessa pochi 
e isolati individui? 

"Vivere a Forte dei 
Marmi non è come vive¬ 
re in un posto qualunque, 
perché è una città a misu¬ 
ra d'uomo, senza indu¬ 
strie, senza inquinamen¬ 
to, senza traffico; eppure 
al contempo è un centro 
culturale vivissimo e ri¬ 
conosciuto. Ecco perché 
si è formato negli abitan¬ 
ti, con orgoglio, un forte 


editoriale in Versilia spie¬ 
gano così questa bella fa¬ 
vola (ma non va trascura¬ 
ta l'importanza di un 
sindaco amico dell'inno¬ 
vazione e di un Apple 
Center, come quello loca¬ 
le, veramente in gam¬ 
ba...). 

E quello che non dico¬ 
no loro, basta uno sguar¬ 
do ai loro giornali per ca¬ 
pirlo. 

Vivere Forte dei Mar¬ 
mi , 50 pagine con foto¬ 
grafie a colori, è il vade¬ 
mecum del fortunato turi¬ 
sta che ha scelto di tra¬ 
scorrere qui le sue vacan¬ 
ze: tutte le informazioni 
per dormire, mangiare, gi¬ 
rare, vedere, nuotare, im¬ 
parare, giocare, vivere 
Forte dei Marmi sono sta- 
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te raccontate dal Mac, in 
quattro lingue, diretta- 
mente allo stampatore, e 
il risultato è di livello de¬ 
cisamente gradevole e 
professionale. 

L'Imbarcatello è "la 
nuova fortemarmina crea¬ 
tura di carta stampata", 
come si autodefinisce nel¬ 
la lettera d’invito per la 
sua presentazione ufficia¬ 
le, avvenuta il 14 giugno 
di fronte a una fitta pla¬ 
tea di autorità, giornalisti 
e intellettuali. 

Realizzato integral¬ 
mente con il sistema Ap¬ 
ple Edit, è un mensile "o- 
ve si raccontano e si a- 
scoltano fortemarmine 
faccende di ieri, di oggi e 
di domani (con eventuali 
riferimenti a quelle degli 
altri che, più o meno di¬ 
rettamente, hanno a che 
fare con la “cosa” Forte 
dei Marmi)". 

Anche gli organizza¬ 
tori del Premio Satira Po¬ 
litica Forte dei Marmi, 
di dodecennale e illustre 
tradizione, si è avvalso 
quest'anno dell’ausilio del 
Macintosh per l'organiz¬ 
zazione e la stesura dei 
suoi bei cataloghi. 

Il premio, di respiro in- 




Qui sopra: Franco Calotti con alcune delle sue 
realizzazioni: l'opuscolo "Vivere Forte dei Marmi" 
e i due cataloghi del "Premio Satira Politica". 

A sinistra: la presentazione del mensile fortemarmino 
"L'Imbarcatello". Al microfono Emilio 
Tarabella, redattore unico; seduto all'estrema 
sinistra, in marrone, il sindaco, prof. Fidia Arata. 


temazionale, promuove 
attività durante finterò ar¬ 
co dell'anno, interessando 
di sé disegnatori, giornali¬ 
sti e intellettuali di tutto 
il mondo. Sciascia, Biagi 
e Montanelli; Forattini, 
Angese e Starno; Beni¬ 
gni, Fo e Arbore sono al¬ 
cuni dei campioni della 
satira premiati in questi 
anni. 

E poi c'è il foglio di 
contrada La Coppiola , c’è 
in preparazione una Gui¬ 
da Turistica per itinerari 
toscani, c’è il giornale O- 
roptero curato con Mac 


dal Dott. Medesani. E c'è 
infine una ricca rivista a 
colori, sul tennis, del Cir¬ 
colo Albergatori Versilie- 
si, che viene realizzata in¬ 
teramente con l'Apple II: 
in tipografia, anziché con 
le pile di manoscritti, i 
fattorini ci vanno con i 
floppy disk. 

E poi, e poi? Da una 
città così ci si può aspet¬ 
tare qualcos'altro anco¬ 
ra... 

Forse presto sentiremo 
parlare di nuove iniziati¬ 
ve, magari proprio sul¬ 
l'informatica applicata? 
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La griffe 
della mela 

La Apple, come molti 
sanno, na firmato con la 
mela iridata una collezio¬ 
ne di oggetti dal design o- 
riginale, utili e diverten¬ 
ti. Della Apple colle- 
ction fanno parte penne, 
portadischetti eportachia- 
vi, ma anche asciugama¬ 
ni da spiaggia, magliette, 
cravatte e maglioncini. E 
per chi è abituato a sorbi¬ 
re il caffè mentre lavora 
al mouse o alla tastiera 
non manca una tazza, na¬ 
turato ente personalizzata 
dalla griffe Apple. Come 
molti invece non sanno, 
tutti questi oggetti posso¬ 
no essere richiesti ai mi¬ 
gliori computer shop o 
direttamente alla Apple. 

L'informazione 
corre sul filo 

Con la crescente diffusio¬ 
ne degli elaboratori perso¬ 
nali tra manager e profes¬ 
sionisti è cresciuto anche 
l'utilizzo di banche dati, 
ormai accessibili a chiun¬ 
que possieda un modem. 
Proprio alle banche dati è 
dedicata una nuova pub¬ 
blicazione, realizzata dal¬ 
la Hewlett-Packard Italia¬ 
na in collaborazione con 
un gruppo di esperti del 
settore. In forma sinteti¬ 
ca e facile da leggere an¬ 
che per i non addetti ai la¬ 
vori vengono descritte le 
modalità di collegamento 


e quelle di interrogazio¬ 
ne. Le informazioni prati¬ 
che comprendono un e- 
lenco degli indirizzi delle 
più importanti e interes¬ 
santi banche dati italiane, 
europee e statunitensi e u- 
na tabella riassuntiva in 
cui le banche dati posso¬ 
no essere individuate in 
base alle rispettive specia¬ 
lizzazioni. La pubblica¬ 
zione, intitolata Banche 
dati: Vinformazione è a 
portata di mano , è gratui¬ 
ta e può essere richiesta 
direttamente alla Hewlett 
Packard Italiana, Servizi 
Documentazione, via G. 
di Vittorio 9, Cemusco 
sul Naviglio, Milano (te¬ 
lefono 02/923691). 

Un tris 
da stampa 

Le nuove stampanti Oki 
della serie 290 hanno tut¬ 
te le carte in regola per 
farsi notare nell’affollato 
panorama del settore. I 
tre modelli che compon¬ 
gono la linea (siglati ri¬ 
spettivamente MI 292, 
MI 293 e MI 294) di¬ 
spongono infatti di testi¬ 
ne a 18 aghi e sono in 
grado di offrire prestazio¬ 
ni di livello superiore. I 
primi due modelli hanno 
una velocità di stampa di 


La casa della 
mela 


A scuola di 
Cobol 

I personal computer at¬ 
tuali hanno una potenza 
di calcolo superiore a quel¬ 
la raggiunta dai più gros¬ 
si elaboratori in servizio 
negli anni 60: per questo 
motivo in questi ultimi 
anni linguaggi ormai sto¬ 
rici come Fortran o Co- 
boi sono stati rivisitati, 
per renderli utilizzabili an¬ 
che da chi lavora con un 
personal. Cobol per mi¬ 
crocomputer , un libro edi¬ 
to recentemente dal Grup¬ 
po Editoriale Jackson, 
tratta proprio di questo ar¬ 
gomento, sottolineando 
l’importanza di questo lin¬ 
guaggio nel campo gestio¬ 
nale e amministrativo. 

II testo consente uno 
studio completo della pro¬ 
grammazione in Cobol 
con l'ausilio di qualsiasi 
personal computer (pur¬ 
ché dotato di compilatore 
Cobol). Cobol per micro¬ 
computer, di R. Ashley e 
J. N. Femandez, 556 pagi¬ 
ne, costa 35 mila lire. 


Con un Apple II e un 
po’ di dimestichezza con i 
circuiti elettronici è possi¬ 
bile creare un sistema mo¬ 
dulare intelligente, desti¬ 
nato a controllare rim¬ 
pianto antifurto di casa, 
quello di illuminazione e 
quello di riscaldamento, il 
telefono. A raccontare co¬ 
me sia possibile automa¬ 
tizzare la propria abitazio¬ 
ne con un personal com¬ 
puter della mela è John 
Blankership, nel libro Ap¬ 
ple house : passando da un 
capitolo all'altro si sco¬ 
pre che la casa può accet¬ 
tare ordini impartiti a vo¬ 
ce (e rispondere): solo 
per fare qualche esempio, 
può accendere il televiso¬ 
re nel momento in cui ini¬ 
zia il programma preferi¬ 
to, sintonizzare la radio 
sui notiziari, spegnere le 
luci nei locali in cui l’illu¬ 
minazione è superflua. Ap¬ 
ple house , 204 pagine, è 
edito dalla Franco Muzzio 
& C. e costa 18 mila lire. 


200 caratteri al secondo 
in uso normale e di 100 
caratteri al secondo in let- 
ter quality. La MI 294, 
invece, mantiene i 100 
caratteri al secondo nel 
modo letter quality, ma 


è in grado di raggiungere 
i 400 nell'uso normale. 
Tra gli optional disponi¬ 
bili si segnalano l'alimen¬ 
tatore di fogli singoli 
(per l'Ml 292 e l’Ml 
293), un buffer da 32 ki- 


allibri- 


appiè house 
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lobyte e un nastro a colo¬ 
ri a cartuccia. Un altro 
punto a favore di questo 
tris di stampanti, prodot¬ 
te da un impianto com¬ 
pletamente robotizzato, è 
l’affidabilità: sono in gra¬ 
do di funzionare senza 
problemi per circa 4 mila 
ore, chiedendo interventi 
di manutenzione limitati 
in media entro i 15 mi¬ 
nuti. Infine i prezzi. Il 


modello 292 costa 1,875 
milioni di lire, il 293 
2,2 milioni e il 294, con 
interfaccia seriale Ibm e 
Apple, 2,975 milioni. 
Per ulteriori informazio¬ 
ni è possibile contattare 
il distributore esclusivo 
per l’Italia delle stampan¬ 
ti Oki, la Technitron 
(l’indirizzo è Palazzo 
E/2, Milanofiori, Assa- 
go, Milano). 


Knowledge» 

Management 
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Il management 
post-industriale 

Gianfranco Minati, e- 
sperto nel campo della 
computer Science e dei 
problemi della società 
post-industriale ha fatto 
il punto della situazione 
del management nell'era 
della tecnologia dei com¬ 
puter in un libro dal tito¬ 
lo insolitamente lungo 
( Knowledge, manage¬ 
ment, computer: tre di¬ 
mensioni della società 
post-industriale). In un 
linguaggio che resta sem¬ 
pre accessibile, nonostan¬ 
te la complessità dei temi 
trattati, Minati affronta i 
problemi legati al nuovo 
ruolo del manager: trasfor¬ 
mare in ricchezza la cono¬ 
scenza. Ogni capitolo, 
poi, è integrato da grafi¬ 
ci, illustrazioni, dati e 
cenni storici. Knowledge, 
management, computer: 
tre dimensioni della so¬ 
cietà post-industnale è 
edito dalle Edizioni Soiel 
International di Milano 
(pagine 245). 



Economia 
e finanza personale 
in Apple Basic 


La finanza 
personale 

Chi vuole usare in mo¬ 
do personalizzato il pro¬ 
prio Apple II, troverà in 
Economia e finanza in Ap¬ 
ple Basic una sessantina 
di brevi programmi che 
mettono immediatamente 
in grado di tenere sotto 
controllo l'economia do¬ 
mestica, il calcolo di mu¬ 
tui, indirizzari e così via. 

Per fare funzionare le 
routine proposte dal volu¬ 
me bastano poche cono¬ 
scenze di Basic: il libro, 
poi, offre la possibilità 
di riunire le varie routine 
in un unico programma, 
organizzato a menù, attra¬ 
verso il quale accedere al¬ 
le varie funzioni. L'obiet¬ 
tivo del volume è, insom¬ 
ma, aiutare il lettore a 
scoprire tutta la potenza e 
la flessibilità dell'Apple. 

Economia e finanza per¬ 
sonale in Apple Basic , di 
Stanley R. Trost (172 pa¬ 
gine), è edito dalla Fran¬ 
co Muzzio & C. Costa 18 
mila lire. 



Lotus 

all'Italiana 

La Lotus Development 
Corporation, la software 
house che ha prodotto 
Jazz, il potente sprea¬ 
dsheet per Macintosh, ha 
aperto una filiale italia¬ 
na. ”La Lotus ha deciso 
di operare direttamente 
sul mercato italiano per 
poterne meglio valutare 
le potenzialità”, dice Pe¬ 
ter McQueen Dove, scoz¬ 
zese, 29 anni, responsabi¬ 
le insieme a Giovanni 
Catalfamo della neonata 
filiale. ”Siamo infatti 
convinti che l’Italia nei 
prossimi anni si trasfor¬ 
merà in uno dei più forti 
consumatori di soft¬ 
ware”. La Lotus Develo¬ 
pment Italia ha sede a Mi¬ 
lano, in via Melzi d'Eril 
29 (tei. 02/3458657). 

A prova 
di curiosi 

Per consentire di tenere 
sempre in perfetto ordine 
i floppy disk destinati a 
lavorare con l’Apple di ca¬ 
sa, ma anche videocasset¬ 
te, fotografie e musicas¬ 
sette, la milanese Mielco 
ha messo a punto un 
contenitore, battezzato 
Posso. E' realizzato con 


un robusto materiale pla¬ 
stico ed è composto da e- 
lementi modulari che pos¬ 
sono essere assemblati a 
piacimento: ogni elemen¬ 
to, poi, può essere dotato 
di una serratura per pro¬ 
teggere i supporti magne¬ 
tici da indesiderate curio¬ 
sità. L'indirizzo della Mi¬ 
elco è: via Prampolini 4, 
Milano, tei. 02/680872. 

Quasi 32 bit 
per Apple II 

Si chiama Meta 32 ed 
è stato creato per chi vuo¬ 
le anche dall’Apple II le 
prestazioni tipiche dei 
personal a 16 o a 32 bit: 
questo emulatore, scritto 
in assembler, può essere 
richiamato sia dall'Apple¬ 
soft sia dalle routine del 
monitor e mette a dispo¬ 
sizione circa 200 istruzio¬ 
ni per gestire i 32 bit e i 
16 bit alti e bassi dell’ac¬ 
cumulatore e dei registri 
X è Y. In più ci sono i ri¬ 
chiami di subroutine e i 
ritorni da subroutine con¬ 
dizionati e la funzione lo¬ 
gica Not. Meta 32 è pro¬ 
dotto dalla Micro Proget¬ 
tazione Avanzata (l’indi¬ 
rizzo è: piazza Merolli 
44, Roma, telefono 06/ 
5235376) e costa 508 mi¬ 
la lire, Iva esclusa. 
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Adesso musica. Per chi sa che studiarla e scriverla è faticosa professione, 
per chi la vive solo come piacere, per chi vuole improvvisarla 
alla tastiera... Adesso musica. Per tutti quelli che hanno un Macintosh 
o un Apple II e voglia di novità, di brio, di qualità. 


Un’orchestra 
sullo schermo 


Forse è uno dei campi in cui il per¬ 
sonal ha spalancato più porte, abbat¬ 
tuto più intralci, deriso più incredu¬ 
li, conducendo una sua proficua, sim¬ 
patica e inattesa rivoluzione cultura¬ 
le: musica per tutti, a tutti i livelli. 
Musica da tesi di laurea, musica per 
un’allegra serata, musica dagli effetti 
stravaganti, dalle toccanti dissonan¬ 
ze, dalle audaci arrampicate; musica 
per imparare, per sorridere, per com¬ 
porre. 

Agli iperbolici livelli dei profes¬ 
sionisti del pentagramma, il perso¬ 
nal aiuta a scriver musica, stampa 
gli spartiti, suggerisce nuovi effetti. 
E si interfaccia con strumenti musi¬ 
cali elettronici a generare nuovi suo¬ 
ni, nuove elaborazioni e persino nuo¬ 
vi strumenti dalle tonalità sorpren¬ 
denti. Presta poi opera docile e pre¬ 
ziosa in fase di studio, per esaminare 
i pezzi scritti da illustri e meno illu¬ 
stri musicisti, scomporli, analizzare 
e confrontare differenti brani. 

A livelli più casarecci, e sorprende 
ancora di più, fa da mentore a dilet¬ 
tanti appena appena infarinati da un 
do-re-mi, avvicina alla musica fior 
di profani e persino di stonati che fi¬ 
nora l’hanno considerata territorio e- 
sclusivo degli addetti ai lavori. 

Rivela, meravigliosamente, che il 
nostro rapporto con la musica può 
non limitarsi a un passivo click sul 
pulsante dell’autoradio, può non es¬ 
sere solo un indossar di cuffie: 
con lei si può giocare 
un ruolo attivo, inedito, 
si può da pigri fruitori di 
messaggi sonori divenire, 
con un capovolgimento inaspet¬ 


tato, autori di note. Merito, indiscus¬ 
so, dei programmi disponibili sul 
mercato, che sono molti, sono intel¬ 
ligenti e belli e consentono soprat¬ 
tutto un approccio totalmente interat¬ 
tivo. Una singola nota o un intero 
pezzo musicale visualizzati sul mo¬ 
nitor del computer vengono anche c- 
scguiti, dando la possibilità di ap¬ 
prendere molto velocemente il signi¬ 
ficato della scrittura musicale; le no¬ 
te, digitate da tastiera, rivelano subi¬ 
to il suono corrispondente. Si può 
scoprire in fretta, grazie a ottime si¬ 
mulazioni, quali differenze corrono 
tra strumento e strumento. Si può 
comporre, insomma, e capendo quan¬ 
to si fa. 

Ma perché lo si fa? Non è certo 
facile rispondere. La musica non è 
come un'automobile, che tutti sanno 
a cosa serve... La musica in realtà 
non serve proprio a nulla: per questo 
è indispensabile. 

Ouverture: nasce 
l'informatica musicale 

Scienza nuova, nuovissima, l’in¬ 
formatica musicale compare negli an¬ 
ni Sessanta, nei centri studi di alcu¬ 
ne università americane, e con l'av¬ 
vento del personal giunge a toccare 
in tempo incredibilmente breve la 
sua massima tonalità. 


L'Apple II, con la sua struttura a- 
pcrta, si qualifica subito come otti¬ 
mo strumento per l'impostazione di 
un atteggiamento professionale nel 
campo musicale: ben presto si produ¬ 
cono tastiere complete di particolari 
interfacce e software per il suo stan¬ 
dard. Le possibilità che questi ibridi 
danno al musicista sono abbastanza 
limitate, anche se, alla loro appari¬ 
zione, sembrano avere dello straordi¬ 
nario. Si tratta soprattutto di applica¬ 
zioni del tipo Controllori program¬ 
mabili, qualche volta con possibilità 
limitale di elaborazioni del suono. 

Per proseguire sulla strada del pro¬ 
fessionale, il mercato richiede però 
qualcosa di più, qualcosa che consen¬ 
ta di effettuare collegamenti tra mac¬ 
chine anche differenti: occorre uno 
standard. Nei primi mesi del 1982 
nasce così la Musical Instrument Di¬ 
gital Interface, meglio nota col no¬ 
me di MIDI, praticamente la RS232 
della musica. Per Apple esistono 
due versioni di questa interfaccia: u- 
na scheda da inserire internamente 
nel caso di Apple Ile e una scheda e- 
sterna da col legare alla porta Modem 
nel caso dell'Apple Ile o del Macin¬ 
tosh. 

Anche con l’avvento degli stan¬ 
dard, l'Apple II rimane 
sulla brec- > 
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eia, soprattutto perché gli slot sono 
di grande aiuto per i progettisti di in¬ 
terfacce MIDI e relativo software, 
che trovano disponibili subito tutti i 
segnali necessari. Interessante il fat¬ 
to che una volta tanto in Italia non 
siamo stati a guardare: è italiana, e 
pochi lo sanno, una delle più impor¬ 
tanti società produttrici di hardware 
e software per Apple II, la Lemi di 
Torino, impostasi da diversi anni co¬ 
me produttore mondiale di interfacce 
MIDI per Apple II complete di so¬ 
ftware per le più svariate applicazio¬ 
ni e per il funzionamento con tastie¬ 
re di diverse marche, tra le più cono¬ 
sciute del mercato. Naturalmente tut¬ 
ti i programmi della Lemi, per la lo¬ 
ro esportabilità, sono in lingua in¬ 
glese; proprio per questo molti ne i- 
gnorano la nazionalità italiana. 

Apple II: 

crescendo, con brio 

Fatte così le lodi della produzione 
nostrana, non si può scordare però 
che esiste, come è naturale, anche u- 
na vastissima produzione anglosasso¬ 
ne, sia di software sia di hardware, 
che rende ancora più appetibile 


MIDI: uno standard per suonare 

Musical Instrument Digital Interface: questo il significato della sigla più 
utilizzata nell'ambiente informatico musicale. Dopo alcuni anni di anarchia 
pressoché completa, alla metà del 1981 qualcuno pensò che era ora di met¬ 
tere un po' di ordine nel bailamme di segnali digitali che viaggiavano dai 
computer alle varie tastiere. Già a marzo dell'anno successivo l'accordo tra 
i produttori era operante, ma solo dopo un altro anno la Sequential Circuits 
inaugurava il mercato MIDI con il Prophet 600, prima macchina con inter¬ 
faccia MIDI incorporata. 

Vediamo brevemente come funziona un’interfaccia MIDI. Il connettore 
standard utilizzato è il normale Din a 5 poli. Una qualsiasi apparecchiatura 
dotata di tale interfaccia possiede normalmente tre di questi connettori 
(molto raramente si trovano tastiere che ne hanno solo due): MIDI IN, MI¬ 
DI OUT, MIDI THRU. MIDI IN è un'entrata che consente di ricevere le infor¬ 
mazioni in arrivo dal computer o da altri strumenti musicali. MIDI OUT ha 
invece la funzione di inviare queste informazioni. All'uscita MIDI THRU ri¬ 
troviamo esattamente lo stesso segnale che entra da MIDI IN: serve per col¬ 
legare più apparecchiature insieme, ovvero un computer a più tastiere; que¬ 
sta funzione è quella mancante negli strumenti a soli due connettori, men¬ 
tre alcuni strumenti ne hanno addirittura tre o quattro per facilitare i collega- 
menti. I dati che viaggiano attraverso le Interfacce MIDI possono essere di 
quattro formati: Poly, Mono, Omni On e Omni Off. Mono e Poly consento¬ 
no di lavorare in monofonia (per esempio con un solo tipo di suono per o- 
gni canale) o in polifonia. Omni On e Off consentono allo strumento di ri¬ 
conoscere rispettivamente tutti i segnali che transitano o solo quelli desti¬ 
nati al canale di ricezione attivato in quel momento. 

Le informazioni che viaggiano attraverso le interfacce MIDI sono tra le 
più complesse di tutti i sistemi di trasmissione dati: informazioni relative 
ai tipi di strumenti da selezionare attraverso i differenti canali, note per o- 
gni canale, controllo dei toni, degli effetti speciali (per esempio il vibra¬ 
to) e dei pedali di espressione nei pianoforti elettronici, oltre logicamente 
a segnali di sincronismo che permettono agli strumenti di suonare all’uni¬ 
sono. Ma, caratteristica praticamente assente in altri tipi di interfacce digi¬ 
tali, è la possibilità per gli strumenti di riconoscere solo il loro standard 
di segnali, ignorando quelli differenti. Così ogni costruttore si è creato dei 
messaggi esclusivi che vengono interpretati dalle sue macchine e non com¬ 
portano alcuna reazione inaspettata dalle altre. 

Tra le cose curiose dell’interfacciamento MIDI è da segnalare la trasmis¬ 
sione via radio dei dati: la Lemi di Torino produce un trasmettitore portati¬ 
le e un ricevitore fisso che consentono di trasmettere via etere qualsiasi se¬ 
gnale MIDI fino a una distanza di 100 metri. Così il musicista può tranquil¬ 
lamente portare il suo strumento in scena e nascondere il computer che gli 
consente di generare virtuosismi da manuale. 









Canali MIDI 
simultanei 

Tracce 


Prodotto 


Computer Interfaccia 


Capacità 

note 


Metronon 


simultanee 


Modi di Codici di 
Input sincronismo 


udibile 

visibili 


Texture 

e 

R 

8 

8P 

9000 

R,Lp 

F,M, R 

V 


Mix Master 

e 

PP,R 

N/A 

26 

N/A 

R, st. Lp 

F.M 

yl 


DS3 

+/e 

Greengate 

16 

4Mo 

N/A 

R, st, Lp 

F.M, R 

V 

yl 

Future Shock & Song 

+/e 

Lemi 

16 

8P 

4100 

R.Lp 

24 

V 

yl 

Meta T rack 

+/e 

M. PP, Sn 

16 

16P 

3000 

R.Lp 

O 

V 

yl 

Key board Controll ed 

e 

MD, Mg, PP, Sq 

16 

35P 

4500 

R. st, Lp 

M.p 

V 

yl 

KSQ800 

+/e 

PP 

16 

4P 

6000 

R.Lp 

M 

V 

yl 

MIDI Sequencer II 

+/e 

MD, PP/MD, PP, Sq 

16 

16P 

4250 

R, st 

M, 96 

>/ 


MIDI 4 Plus 

+/e 

R/PP 

4 

4P 

6000 

R.Lp 

M, R, 0 

yl 

yl 

Master Tracks 

+/e/c 

PP 

16 

8P 

12000 

R, st, Lp 

M,° 

V 

yl 

MUSE 

+/e/c 

R 

16 

8P 

6000 

R 

F,M 

V 


Studio 1,2 

+/e/c 

MD, PP, Sn,Sq 

16 

8P 

5000 

R, st, Lp 

M, R 

V 

yl 

MIDIComposer 

Mac 

As 

16 

4P 

10000 

R 


yl 


Studio Mac 

Mac 

As, MW, Op, SW 

4 

8Mo 

2300 

Rlim.st 


V 


Rhythm Sequencer 

Mac 

SW 

N/A 

128 

50000 

R. st.Lp 

F.M.S 

V 


Deluxe Music 

Mac 

As, MW, Op,o 

8 

16P 

N/A 

st 




Concertware+ for MIDI 

Mac 

As, PP 

8 

8P 

10000 

st 

M, o 



Musicworks 

Mac 

As, MN, Op 

4 

4P 

1024 

Rlim.st 




Performer 

Mac 

As, MW, Op, SW 

16 

200P 

50000 

R, st 

M 

yj 

yl 

MegaTrack 

Mac 

As, MW, Op 

16 

32P 

N/A 

R, st 

M 

yl . 


Midimac Sequencer 

Mac 

As,MN,MW,Op,SW 

16 

32P 

24000 

R 

M 

V 

V 

Total Music 

Mac 

SW 

16 

128P 

60000 

R. st, Lp 

M 

yl 



l’utilizzo musicale dell’Apple II.. 

Tanto ampio è il mercato, che non 
tutti i pacchetti possono essere 
raccontati: ecco pertanto una rasse¬ 
gna dei più importanti; le caratteristi¬ 
che degli altri trovano posto invece 
nella tavola comparativa di fianco. 

• AMP 83. E’ un sequenziatore a 
tempo reale e non, prodotto dalla 
Lemi. AMP 83 è un programma tra 
i più completi, essendo composto da 
14 piste monofoniche indipendenti 
che possono agire contemporanea¬ 
mente in ascolto e in registrazione, 
più due piste che provvedono in o- 
gni momento al cambio del program¬ 
ma e alla trasposizione. AMP 83 
consente inoltre il completo control¬ 
lo delle singole note, sia come into¬ 
nazione, sia come durata e dinamica. 
Ha una possibilità di stampa, ma so¬ 
lo in notazione numerica, e consente 
di montare le diverse sequenze per la 
costruzione di una composizione 
completa che può essere poi memo¬ 
rizzata su disco. Insieme a AMP 83 
vengono forniti un programma di e- 
co digitale, che ritarda i segnali MI¬ 
DI OUT rispetto al IN, e utility so¬ 
ftware come programmi di Dump. 

• Future Shock & Song. E' 
forse il più famoso software tra i 
musicisti italiani, anche perché pro¬ 
dotto dalla Lemi di Torino. E' un se¬ 
quenziatore a tempo reale con 8 cana¬ 
li polifonici, ma ha la possibilità di 
sovrapposizione che rende il nume¬ 
ro dei canali infinito. Ogni canale 
viene identificato con il suo stato, la 
memoria consumata e il canale MI¬ 
DI corrispondente in uscita. Inoltre 
possono essere indicati, per ogni 
traccia, il tipo e la quantità delle mi¬ 
sure. La quantizzazione è molto pre¬ 
cisa e indipendente per ogni canale. 
Oltre al sincronismo esterno, il pro¬ 
gramma ha la possibilità di generare 
un metronomo con indicazione sia 
visiva sia acustica. Tutte la informa¬ 
zioni MIDI e le note (fino a 4700, 



con memoria di 64K) vengono me¬ 
morizzate fedelmente. 

• Prophet 600 e Prophet 5. 
Due software, sempre della Lemi, 
che permettono di visualizzare tutti i 
100 programmi memorizzati dalla ta¬ 
stiera Prophet 600. Quattro pagine 
di cui tre grafiche consentono di vi¬ 
sualizzare tutti i parametri con valo¬ 
ri da uno a cento per i potenzimetri 
e lo stato degli interruttori. Il Pro¬ 
phet 5 è simile al 600, ma consente 
la visualizzazione dei programmi in 
forma sia alfanumerica sia grafica e 
possiede inoltre il dump dei program¬ 
mi presenti nel primo banco del 
Prophet 5. 

• Yamaha DX7. E’ sempre fir¬ 
mato dalla Lemi, che lo propone ai 
possessori delfomonima, famosissi¬ 
ma tastiera. Tutte le funzioni vengo¬ 
no controllate dal computer e sono 
completamente editabili. Parametri, 
function page, inviluppi, algoritmi 
e LFO sono visualizzati sia numeri¬ 
camente sia graficamente. Program¬ 
mi e loro parametri sono disponibili 
per la stampa, dando così la possibi¬ 
lità di creare un archivio di suoni. Il 
dischetto è completo di 128 suoni 
oltre alle ROM originali. 

• Song. Espansione del sequencer 
Live Future Shock, ne amplia le 


possibilità riducendo contemporanea¬ 
mente lo spazio di memoria utilizza¬ 
ta. La visualizzazione di 30 battute 
per volta con scorrimento laterale fa¬ 
cilita le operazioni di editing e com¬ 
posizione. Molto facile da utilizzare, 
la rapidità di esecuzione ne fa il sup¬ 
porto ideale per concerti dal vivo. 

• Ensoniq Mirage. Lo scopo di 
questo programma della Lemi è la vi¬ 
sualizzazione delle forme d'onda cam- 
pionate sulla tastiera Mirage. Le for¬ 
me d’onda possono essere editate at¬ 
traverso il joystick allo scopo di 
creare nuovi e originali suoni e di fa¬ 
cilitare il looping. 

• Music Printer. Questo pro¬ 
gramma trasforma le tracce registrate 
sul sequencer Future Shock in file u- 
tilizzabili da software tipo Polywri- 
ter o Lead Sheet della Passport Desi¬ 
gn. E' possibile così per il musici¬ 
sta comporre il proprio pezzo ed ela¬ 
borarlo attraverso la tastiera e il com¬ 
puter e poi stampare il tutto nella to¬ 
nalità desiderata con la classica nota¬ 
zione musicale. Chiaramente questo 
software è di supporto al Live Futu¬ 
re Shock e al programma di scrittura 
che necessita una stampante grafica. 

• Roland DG. Produttrice a li¬ 
vello mondiale di sofisticate tastiere, 
la Roland ha reso ancora più potenti 
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Display 


rcucuiieui iviil/i 

registrabili e modificabili 



Parametri MIDI filtrati 


Posizionatore 


Legenda - Al: alfanumeri¬ 
co. As: Assimilation. AT: 
after touch, av: avanti 
veloce. B: entrambe note- 
on e note-off. c: Apple Ile. 
CH: canali. D: durata, e: 


frequenza 

AT 

PB 

PC 

V 

MOD SUS CH 

AT 

PB 

PC 

V 

MOD SUS 

iv 

av 

PP 

pa 


8-250 

Al 

4* 

V* 

4* 

V* 

4 

4 

4 * 

1 

1 

1 

1 

1 

1 






15-4000 

N, G, Al 

4 

4 

4 

V* 

4 

4 

4 

E 

E 

E 

E 

E 

E 

4 

4 

4 

10 


4-7000 

G, Al 

, V* 


V* 

4* 

V* 

V* 

V* 









4 


Apple Ile.E: modo Edit. G: 
grafico, g: globale. 1: mo- 
do Input, iv: indietro vel- 


40-250 

G, Al 

4 

4 

4 * 

4 

4 

4 

V* 

1 

1 



1 




4 



20-300 

Al 




V* 







1 




V 



oce. lim: limitato. Lp: in 
loop. M: MIDI clock, m: Mi- 
metics. MD: Music Data, 
md: display principale. 
Mo: monofonico. MOD: 


39-1000 

Al 

4* 

V* 

4* 

V* 

V* 

V* 

V 

1+ 

1+ 

1+ 

1+ 

1+ 

1+ 






60-200 

Al 

4 

4 

V 

V 

4 

4 


I.E 






4 

4 




30-220 

Glim.AI 

4 

4 

4 

V* 

4 

4 


1 



E 





lim 


modulation wheel. MW: 
Music Works. N:anotazio- 
ne. N/A: informazione 
non disponibile. O: solo 
note-on. o: altri. Op: Opco- 
de. P: polifonico, pa: posi- 
zione attacchi. PB: pitch 
bender. PC: cambio prò- 


60-200 

Al 

4 

4 

4 

4 

4 

4 

4 

1 






4 

4 




60-200 

G, Al 

V* 

4* 

V* 

4 * 

4' 

V* 

4 * 

I.E 






4 

4 

4 

10+ 


20-250 

Al 

4 

4 

4 

4 

4 

4 

4 

I.E 


I.E 


I.E 




4 

1 


40-240 

Al 

4 

V* 

V* 

V* 

4 * 

V* 

V* 

I.E 

E 

I.E 

I.E 

I.E 

I.E 

4 

4 

4 

1 


50-250 

G 

4 

4 

4 

4 

4 









4 

4 



gramma. PP: Passport. 
pp: posizione pezzi. R: 
Roland. Sn: Syntech. Sq: 
Sequential. st: entrata a 
step. SUS: sustain. t: dalla 


N/A 

G, Al 














4 

4 

4 

1 


30-275 

N,G, Al 



4 

4 



V* 



I.E 

I.E 



4 

4 

4 

10 



N 



V* 

4' 



4 * 







4 

4 



traccia. V: volume. 4: fun- 
zione esistente. *: modifi- 
cabile indipendentemen- 



N 

4* 



N,G 














4 

4 

4 


te. @: non coerente. °: 
smart. «:canale indirizzabi- 


20-400 



V* 

V* 

4 * 

V* 

V* 


I.E 

I.E 

I.E 

I.E 

I.E 

I.E 

4 

4 

4 

lim 

le. +: agganciato (nella 
colonna Computer indica 
Apple II Europlus). 


30-300 

G, Al 

V* 

V* 

4* 

4* 

V 

V* 

V* 

I.E 

E 

E 

E 

E 

E 

4 

4 

4 

1 


1-500 


v 

4 

y) 

V 

yj 

V 


1 

1 

1 


1+ 

l + 

4 

4 

4 

1 




















30-279 

N.G.AI 

V* 

V* 

V* 

V* 

V* 

4* 

4 * 

I.E 

E 

E 


E+ 

E+ 



4 




i propri strumenti affiancando loro 
un Apple IL questo ha portato alla 
creazione di un software specifico, 
DG MIDI Music Recorder. Le carat¬ 
teristiche essenziali di questo pro¬ 
gramma (che utilizza una apposita 
scheda e funità MIDI MPU-401 
sempre della Roland) sono le seguen¬ 
ti: possibilità di registrare oltre 8 
tracce polifoniche con cambio veloci¬ 
tà, tocco, pitch, canali; riproduzione 
dei pezzi anche attraverso tastiere e 
generatori di ritmi compatibili, con 
possibilità di suonare in sovrapposi¬ 
zione direttamente dal vivo; catene fi¬ 
no a sedici strumenti, con assegna¬ 
zione di differenti tracce a ognuno 
per varie combinazioni durante la ri- 
produzione; correzione automatica di 
ogni discrepanza nel timing del pez¬ 
zo; sincronizzazione dellariproduzio- 
ne con qualsiasi registratore a nastro 
o altri strumenti; memorizzazione 
dei dati su disco per riutilizzi futuri. 

Macintosh: 
forte, fortissimo 

Il 24 febbraio 1984 a San Fran¬ 
cisco, durante la sua presentazione 
ufficiale, Macintosh fece ciò che nes¬ 
sun computer aveva mai fatto: si pre¬ 
sentò parlando con la sua stessa 


voce, promettendo così future realiz¬ 
zazioni di altissimo livello creativo. 
In due anni le conferme sono state 
molte, e i programmi musicali visti 
da Applicando sono tra queste. 

• Apple Tones e Mozart. 
Questi due programmi sono stati rea¬ 
lizzati da John R. Meier, studente al 
Dartmont College di Hannover 
(New Hampshire, USA). Apple To¬ 
nes è un programma musicale, ma 
molto atipico: genera solo suoni di 
varie tonalità, in crescendo o in ca¬ 
lando, con delle forme d’onda control¬ 
late o casuali; è più che altro un otti¬ 
mo ausilio per capire i fondamenti fi¬ 
sici del suono. Mozart invece è un 
vero e proprio software per generare 
musica con tanto di spartito, note ed 
esecuzione del pezzo trascritto. 

• Concertware. E’ stato uno 
dei primi software musicali per Ma¬ 
cintosh a entrare in commercio. La 
versione iniziale è stata migliorata a 
passi successivi fino ad arrivare alla 
attuale, Concertware Plus for MIDI, 
che consente l’interfacciamento con 
MIDI e attraverso questo con tastie¬ 
re, campionatori, ecc. Il programma 
comprende tre sezioni separate e di¬ 
stinte: la prima consente di creare 
gli strumenti musicali agendo sulla 
forma d’onda del suono generato e di 


tutte le sue caratteristiche come attac¬ 
co, decadimento, vibrato, eco, ecce¬ 
tera; la seconda è lo spartito vero e 
proprio con note, pause, tempi, ecce¬ 
tera; dulcis in fundo, la parte in gra¬ 
do di eseguire il pezzo direttamente 
o attraverso il MIDI. Contiene già u- 
na libreria di pezzi pronti e un'altra 
con i necessari strumenti. 

• Deluxe Music Constru- 
ction Set. Prodotto dalla Electro¬ 
nic Arts, è in grado di produrre suo¬ 
ni attraverso i quattro sintetizzatori 
del Macintosh e inviarli su quattro 
canali attraverso l'interfaccia MIDI 
compatibile (non possiede infatti in¬ 
terfaccia propria). I controlli sono i 
principali richiesti per una buona e- 
secuzione con 16 strumenti a dispo¬ 
sizione. Pur non essendo di livello 
massimo, ha il grosso vantaggio di 
costare poco (circa 50$). 

• Jam Séssion. La versione che 
che ci è pervenuta non sembra essere 
completa e definitiva: è in grado di 
riprodurre solo alcuni pezzi già regi¬ 
strati sul dischetto; questi vengono e- 
seguiti con eccezionale fedeltà sono¬ 
ra, ma poi tutto finisce lì, poiché 
non è possibile creare o modificare i 
brani. Con impressionante realismo 
questo programma riproduce un regi¬ 
stratore a cassetta a sei canali com- 
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pleto di VU Meter per indicare il li¬ 
vello sonoro dei vari strumenti, tasti 
di Play, Rewind, Fast Foward, Stop 
e Eject, contagiri con memoria e ta¬ 
sto search per ricercare i brani. E' do¬ 
tato inoltre di controllo del volume 
e del tempo di esecuzione; è anche 
possibile ascoltare uno solo per vol¬ 
ta gli strumenti impegnati nell’esecu¬ 
zione del brano. E’ un prodotto del¬ 
la Hayden Software. 

• Mac Attach. E’ un software 
specifico per l’utilizzo del Mac con 
la tastiera Kurzwail 250. In questo 
caso il Macintosh fa da supporto al¬ 
la memoria già presente nella tastie¬ 


ra permettendo la registrazione su di¬ 
schetto di qualsiasi tipo di dati gesti¬ 
bili dal Kurzwail 250, che vengono 
organizzati in librerie (di strumenti, 
di tastiere, di sequenze). Il marchio 
Kurzwail è distribuito da Sincro Sy¬ 
stem, Milano, e Syncrom, Roma. 

• MacMusic. La struttura princi¬ 
pale di questo programma ricorda 
Concertware, in quanto anche qui è a 
disposizione il generatore di strumen¬ 
ti, il sistema di scrittura del brano e 
l'esecutore. Dopo un attento esame 
ci si accorge che il programma ha u- 
na sua particolare filosofia di lavoro: 
per esempio gli strumenti possono 


essere generati sovrapponendo diver¬ 
se volte le tre funzioni base, sinusoi¬ 
de, quadra, triangolare. Così pure il 
sistema di scrittura dei brani consen¬ 
te concatenamenti di pezzi ricorsivi 
dando la possibilità di creare pezzi di 
eccezionale lunghezza, ma impegnan¬ 
do pochissima memoria. E' un pro¬ 
dotto Utopian Software. 

• Midi Composer. Questo pro¬ 
dotto della Assimilation può essere 
utilizzato esclusivamente con l’inter¬ 
faccia MIDI prodotta dalla Assimila¬ 
tion stessa, che consente la canalizza¬ 
zione a 16 linee e 4 tracce. Richiede 
almeno 128 K liberi di memoria sul 
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computer ed è in grado di memorizza¬ 
re fino a 10.000 note. 

• MidiMac. Più che un softwa¬ 
re, è una linea di prodotti che vanno 
dall’interfaccia MIDI ai programmi. 
I programmi principali sono due: un 
classico sequenziatore e un Patch E- 
ditor. Il sequencer esiste in differenti 
versioni (dalla 1.05 alla 3) che varia¬ 
no per prestazioni, soprattutto nella 
possibilità di trasferimento di file da 
altri programmi (soprattutto il De¬ 
lux Construction Set), nella grafica 
e nella gestione dei sincronismi. Le 
possibilità di questo programma so¬ 
no piuttosto succulente per il musi¬ 
cista: 26 sequenze di 16 tracce ciascu¬ 
na per un totale di oltre 24.000 no¬ 
te con il limite di esecuzione con¬ 
temporanea di 32 tracce o di 16 se¬ 
quenze. Per i possessori di sintetizza¬ 
tori Yamaha esiste poi il Patch Edi¬ 
tor che consente un notevole snelli¬ 
mento delle procedure necessarie alla 
programmazione dei timbri di queste 
tastiere. Questi prodotti sono della 
Opcode e in Italia sono distribuiti da 
Sincro System di Milano e 
Syncrom di Roma. 

• Midi Works. Anche in questo 
caso ci troviamo di fronte a una se¬ 
rie di software integrati prodotti Mu- 
sicworks (nulla a che vedere con il 
programma omonimo) e importati 
da Sincro System di Milano e 
Syncrom di Roma. Il programma 
principale ha lo stesso nome dell'in¬ 
tegrato, Midi Works, ed espleta le 
sue funzioni nel trasferimento di file 
dati tra i programmi più conosciuti: 
in entrata si possono avere praticam- 
nete file di qualsiasi tipo mentre in 
uscita sono selezionabili file Mega- 
track (l’altro programma di questo in¬ 
tegrato), Musicworks, Concertware 
o Professional Composer. Il softwa¬ 
re può essere accompagnato da Mac 


MIDI, la vera e propria interfaccia 
che in unione all’altro programma 
MegaTrack consente la realizzazione 
di registrazioni multitraccia là dove 
è solo la memoria disponibile che 
crea una limitazione al loro numero. 
Oltre alle normali caratteristiche que¬ 
sto programma, che può memorizza¬ 
re fino a 72.000 note se utilizzato 
sul Macintosh da 512K, offre un edi¬ 
ting delle tracce molto accurato con 
possibilità, per esempio, di correzio¬ 
ne automatica del tempo di una trac¬ 
cia e di sovrapposizione di più tracce 
su di un'unica traccia ricevente. 
Sempre di questa serie è disponibile 
una DX/TX Librarian che consente 
di caricare l’equivalente di 40 cartuc¬ 
ce di memoria RAM/ROM normal¬ 
mente utilizzate su queste serie di ta¬ 
stiere su di un unico dischetto. 

• Music Character Set. Più 
che un software grafico vero e pro¬ 
prio, si tratta di una serie di docu¬ 
menti Mac Paint contenenti i diversi 
elementi grafici necessari alla stesu¬ 
ra di uno spartito che poi è possibile 
stampare. Chiaramente nessun colle¬ 
gamento MIDI, né riproduzione mu¬ 
sicale dei pezzi. E’ prodotto dalla 
South Bay Software. 

• MusicWorks. La Hayden So¬ 
ftware è stata la prima a vedere nel 
Macintosh il computer giusto per il 
musicista, presentando già nel lonta¬ 
no luglio ’84 questo prodotto. Data 
l’anzianità, è probabilmente il so¬ 
ftware musicale più venduto per Ma¬ 
cintosh anche se risulta ormai sur¬ 
classato da prodotti più recenti. Con¬ 
sente la stesura di partiture musicali 
nota dopo nota su quattro voci e la 
loro successiva esecuzione. Gli stru¬ 
menti selezionabili sono solo 8 (la 
forma d’onda di due di questi può es¬ 
sere disegnata dall'utente). Le altre 
caratteristiche del programma sem¬ 


brano più aiutare nella stesura dello 
spartito che nella sua riproduzione, 
anche se la limitazione di stesura di 
64 battute in 4/4 o corrispondenti 
pone limiti anche alla generazione di 
spartiti. Inoltre non esiste nel pro¬ 
gramma la possibilità di generare ter¬ 
zine, cinquine e tutti i gruppi consi¬ 
derati irregolari. Con l’uscita di MI¬ 
DI Works ha avuto un certo rilan¬ 
cio, essendo possibile con quest’ulti¬ 
mo programma utilizzare i file creati 
da MusicWorks e trasmetterli attra¬ 
verso interfaccia MIDI. 

• Musprint. Per realizzare sparti¬ 
ti stampati in maniera ineccepibile 
Musprint è l’ideale, ma, come nel ca¬ 
so di Music Character Set, non si 
può chiedergli di eseguire il pezzo o 
trasferirlo attraverso MIDI. Unico di¬ 
fetto: non può stampare più di tre 
voci. Comunque per settembre do¬ 
vrebbe esserci una nuova versione 
potenziata. Dietro Musprint c’è la 
mente di Keith Hamel. 

• Professional Composer e 
Performer. Reduce dall’Award co¬ 
me uno dei migliori software per 
Macintosh del 1985, Professional 
Composer è prodotto dagli esperti 
della Mark of thè Unicom. La vinci¬ 
ta dell’Award conferma in pieno la 
qualità e la sofisticatezza di questo 
programma, che può fornire al com¬ 
positore un tale quantità di strumen¬ 
ti da rendere possibile qualsiasi cosa. 
Ben 109 simboli sono utilizzabili 
per la stesura del pezzo, e sono pre¬ 
senti alcune opzioni intelligenti: cor¬ 
rezione automatica dei ritmi, control¬ 
lo sul procedere dell’orchestrazione, 
gestione anche di gruppi come terzi¬ 
ne e cinquine o più in generale di 
qualsiasi gruppo irregolare. E’ un 
programma che il musicista deve as¬ 
solutamente vedere prima di prendere 
qualsiasi decisione sul software da a- 
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dottare. Da qualche mese è disponibi¬ 
le anche Professional Performer che 
consente di eseguire le partiture pre¬ 
parate con il Composer e trasferirle 
attaverso MIDI. Unico neo di questi 
due eccezionali programmi, importa¬ 
ti in Italia da Sincro System di Mila¬ 
no e Syncrom di Roma, il prezzo de¬ 
cisamente elevato. Ma ne vale vera¬ 
mente la pena. 

• Song Painter. I non addetti ai 
lavori possono trovare notevoli sod¬ 
disfazioni con questo programma. 
Ci si può scrivere una canzone, fino 
a oltre 180 battute, in 4/4, 3/4 o 
2/4. Le possibilità di generazione 
del suono sono il minimo gestibile 
dal Mac: fino 4 voci con controlli in 
esecuzione di volume e tempo. E' 


distribuito da Rubicon Publishing. 

• Sound Cap. La riproduzione 
sonora di questo programma ha qual¬ 
cosa di veramente sorprendente; con¬ 
sente di caricare qualsiasi suono da 
tastiera e visualizzarlo attraverso un 
diagramma temporale. Oltre al nor¬ 
male editing, Sound Cap consente 
anche di invertire il suono, introdur¬ 
re effetti speciali come eco e riverbe¬ 
ro, ripetere fino a 99 volte un suo¬ 
no, modificare la velocità, introdurre 
rumore di fondo, sommare più suo¬ 
ni. E 1 prodotto da Fractal Software. 

• Sound Designer. Software 
molto specifico disponibile in due 
differenti versioni per due tastiere: 
lEmulator II della Emù e il Prophet 
2000 della Sequential Circuits. L'i¬ 


dea alla base di questo software è 
quella di dare alle tastiere delle possi¬ 
bilità di elaborazione e di analisi dei 
suoni gestibili alla maniera del Ma¬ 
cintosh, le cui possibilità grafiche 
sono tutte sfruttate per semplificare 
e velocizzare l'editing. Prodotto da 
Digi Designai trova da Sincro Sy¬ 
stem a Milano e Syncrom a Roma. 

• Studio Mac. La Creative Solu¬ 
tion produce questo simpatico so¬ 
ftware per coloro che si interessano 
di musica a livello hobbistico. Qual¬ 
che caratteristica: monofonia su otto 
tracce, massimo di 2000 note, pos¬ 
sibilità di uscita su MIDI (4 canali). 

• Total Music. E' un sistema 
che comprende software per la com¬ 
posizione, esecuzione ed elaborazio¬ 
ne di partiture e del relativo MIDI. 
Si può scegliere la rappresentazione 
degli eventi musicali con la notazio¬ 
ne standard oppure attraverso un si¬ 
stema a griglia (utilizzato in manie¬ 
ra simile da MusicWorks). Le trac¬ 
ce, non più di 99, sono in grado di 
controllare fino 16 canali MIDI o- 
gnuna. Le partiture possono anche 
essere introdotte direttamente dalla ta¬ 
stiera e si potranno eseguire tutti i 
taglia, incolla eccetera. Il numero di 
note gestibili è tra i più alti, oltre 
50.000, dovuto anche alla particola¬ 
re velocità di elaborazione (fino a 
800 note al secondo). La sicronizza- 
zione può essere quella del Mac o ri¬ 
chiamata da fuori. Da Sincro 
System, Milano, e Syncrom, Roma 

• Univers of Sound. Sistema 
all’avanguardia destinato ai possesso¬ 
ri di Emulator II della Emù, contie¬ 
ne appunto un dischetto per Macinto¬ 
sh e un Compact Disc: nel dischetto 
c'è il software relativo alla gestione 
dei collegamenti del Macintosh da u- 
na parte con l’Emulator e dall’altra 
con lo speciale lettore di dati su 
Compact Disc. In pratica il Compa¬ 
ct Disc contiene una biblioteca di 
suoni che possono essere caricati 
sull'Emulator II con l’ausilio del Ma¬ 
cintosh. Ogni suono viene sintetizza¬ 
to in 512K byte e ogni Compact Di¬ 
sc può contenere le informazioni di¬ 
gitali relative a ben 600.000 differen¬ 
ti suoni. Per ora viene proposto so¬ 
lo un disco Compact, che comunque 
contiene una biblioteca di suoni as¬ 
solutamente ineguagliata. Prossima¬ 
mente importato da Sincro System 
di Milano e Syncrom di Roma, avrà 
logicamente un prezzo elevato. 

Mauro Gandini 
Ha collaborato Francesca Marzotto 


Gli indirizzi utili 

In Italia: 

• Syncro System - Bosoni, Piazza Tricolore 2, Milano - Tel. 02/793048 

• Syncrom, Via F. Massimo 34, Roma - Tel. 06/3581296 

• Lemi, Corso Matteotti 37, Torino - Tel. 011/541654 
Negli USA: 

• Passport, 625 Miramontes, Half Moon Bay, CA94019-Tel. 001/415/7260280 

• Unicord, 89 Frost St., Westbury, New York 11590 - Tel. 001/516/3339100 

• Wise Music (dealer), 11740 West Florissant, Florissant, MO 63033 - Tel. 
001/314/8373030 

•Ace Music Center (dealer), 13630 Dixie Hway, N. Miami, FL 33161 - Tel. 
001/305/8916201 

• Dr. T's Music Software, 24 Lexington Street, Watertown, MA 02172 - Tel. 
001/617/9263564 

• Electronics Arts, 2755 Campus Drive, San Mateo, CA 94403 

• Hayden Software, 650 Suffolk Street, Lowell, Mass. 01854 - Tel. 001/617/9370200 

• Utopian Software, P O. Box 40028, Long Beach, CA 90804 

• South Bay Software, P.O. BOX 969, Milìbrae, CA 94030 

• Rubicon Publishing, 6300 La Calma Drive, Suite 100, Austin, TX 78752 

• Creative Solutions, 4701 Randolph Road #12, Rockville, MD 20852 - Tel. 
001/301/9840262 

Canada: 

• Keith Hamel, 466 Albert Street, Kingston, Ontario 
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Aggiungere un tocco di personalizzazione e di vivacità a un programma? 
La soluzione, da sempre, è una routine musicale. Che sia buona, però, 
e versatile... Eccone una con tanto di staccati, corone, ritardi e pause. 

Quella nota 
di allegria 

Personalizzare un programma e vi¬ 
vacizzare un gioco sono operazioni 
che si fanno, in genere, con il soc¬ 
corso di qualche buona routine musi¬ 
cale: ritmi e suoni, inseriti nei pro¬ 
grammi Applesoft, li rendono infatti 
molto più simpatici. 

Il problema è, naturalmente, co¬ 
me inserire la musica nel program¬ 
ma. Può capitare di passare ore e ore 
a giostrare con i POKE e i CALL 
senza riuscire ad avere le note deside¬ 
rate. Se poi la musica comprende 
staccati, corone, ritardi e pause si fi¬ 
nisce per rinunciare. E la routine so¬ 
nora in linguaggio macchina che si 
è presa a prestito risulta inadeguata 
allo scopo. Millenote, invece, è un 
programma di utilità potente ma faci¬ 
le da usare, che consente il rapido in¬ 
serimento di qualsiasi melodia nei 
programmi in Applesoft e può suo¬ 
nare qualsiasi nota in un’estensione 
di quattro ottave, con una durata che 
va da un fugace clic a sei minuti i- 
ninterrotti. E con un altro piccolo 
sforzo Millenote permette anche 
qualche fantasioso effetto sonoro per 
dare vivacità ai giochi. 

Per usare concretamente il pro¬ 
gramma si deve ovviamente saper 
leggere la musica, il che non è dav¬ 
vero troppo difficile. In molti dizio¬ 
nari e nella maggior parte delle enci¬ 
clopedie si trovano informazioni a 
sufficienza per imparare le note. 

Lezione di musica 
computerizzata 

Dopo aver inserito in memoria il 
listato 1, battete BRUN MILLE- 
NOTE, e sarete pronti all’azione. 


Allegro 


G. Puccini 



TUNES CODE: &X &RE4TX &B &D &G &F#S ' &G &Fjjf &DS &B &G3 

FOOTNOTES: (t) (2) (3) (4) (5) 
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Figura 1. Valzer di Musetta (da La Bohème di Puccini). 
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Apple Edrr: Il sis 

dal bozzetto 


Questa è la bozza del vostro notiziario 
aziendale, così come lo fareste, con 
tutte le vostre indicazioni, aggiunte, 
correzioni di testo, modifiche 
all'immagine grafica... 



...e questo è il vostro notiziario 
aziendale finito e stampato proprio 
come lo volete voi. Impaginato, 
redatto, illustrato, assemblato da Apple 
EdIT in metà tempo e fatto tutto da 


mie e il marchio Apple sono marchi registrati della Apple Computer Ine LaserWriter, MacDraw sono marchi della Apple Computer Ine. Macintod) è un marchio Mclntosh Laboratory Ir 
è usato su sua licenza. Page Maker è un marchio Aldus Corporation. Microsoft è un marchio Microsoft Corporation. ReadySetGo è un marchio di Manhattan Graphics. 





tema più veloce 
alla stampa. 





Qui a fianco, un notiziario aziendale 
in bozza come lo fareste voi. 

A sinistra in basso, la stampa finita del 
notiziario come la volete voi. 

A destra, Apple® EdIT, il sistema 
che, finalmente, fa tutto il lavoro 
per voi. 

Apple EdIT è il più rivoluzionario 
sistema integrato per realizzare 
qualunque tipo di documento o 
stampato, dalla bozza iniziale alla 
stampa finale: libri, riviste, relazioni, 
cataloghi, listini, manuali, etc. 

La cosa di per sè è molto 
apprezzabile; ma lo è ancor di più se 
tenete conto che con Apple EdIT si 
evitano tutti gli sprechi di tempo 
tipici dei metodi tradizionali di 
stampa. Il che vuol dire meno gente 
impegnata nella realizzazione, 




ReadySetGo, 
realizzato dalla 
Manhattan 
Graphics. 

Microsoft Word, 
realizzato dalla 
Microsoft. 




m 

PageMaker, 
realizzato dalla 
Aldus Corporation, 



M.kI*jh £ ■ 



£■ 


MacDraw, 
realizzato dalla 
Apple Computer. 


nessuna esecuzione da fare fuori 
azienda e, soprattutto, costi ridotti 
all’osso. 

Quindi un guadagno totale sotto ogni 
aspetto. 

Il sistema Apple EdIT è formato da 
un computer Macintosh’" 512K, 
oppure dal nuovo Macintosh'" Plus, 
con maggiore potenza e velocità; più 
la sofisticata stampante LaserWriter" in 
grado di stampare con ben 35 


caratteri tipografici diversi e realizzare 
qualsiasi composizione su carta, 
lucido, buste, etichette. 

Il software a disposizione di Apple 
EdIT comprende tra l’altro: 
PageMaker™, Microsoft™ Word, 
ReadySetGo™ e MacDraw™ 

Ognuno di loro permette tali e 
tante soluzioni di grafica, testi, 
impaginazione, sillabazione in 
italiano, stampa e illustrazione da 
soddisfare al meglio qualsiasi 
esigenza. 

Tutto questo è Apple EdIT. Vi pare 
poco? 

A noi no, ma se volete sapere 
perchè Apple EdIT è il sistema che fa 
proprio per voi e tutto per voi, venite a 
conoscerlo meglio in un 
Apple.Center. Gli indirizzi sono sulle 
Pagine Gialle. 


Editoria Individuale Testo-grafica. 




Ecco la sofisticata stampante LaserWriter: in pochi secondi, esattamente come lo 
desiderate, stampa tutto ciò che avete realizzato su Macintosh. Dal computer, alla 
stampante, direttamente a voi! 


V. Apple Computer 



























lo applico, 
tu applichi? 


La pubblicità su 
Applicando è informazione. 
Chi legge Applicando 
possiede un computer 
Apple o sta per cambiarlo 
con un Apple//e. 

O con un Apple //c. 

O con un Macintosh. 
Oppure non lo cambia 
affatto, se lo tiene stretto, 
ma vuol sapere dove, 
come e cosa fa 
veramente per lui. 

Una nuova marca 
di dischetti? 

Una nuova 
Software House? 

Una nuova stampante 
a basso prezzo? 

Per chi applica, 
è importante saperlo. 
Subito. 


STUDIOSFERA 
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1 * Strada 24 ■ Milano S. Fe 
lice - 20090 Segrate MI - te 
letono 02/7533939 - 7532151 
telex 350132 MACORM-C.F. e 
P Iva 0701483015 7-C.C.IAA. 
Milano 1132820 - Tribunale 
MilanoReg Soc n. 64797 
Banca Popolare di 
M ilano Ag. 17 


Per la pubblicità 
studiosfem sas 

telefono 02/ 7533939 - 7532151 
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Qualche nota sul valzer di Musetta 

1. Imposta i parametri di default. 

2. Pausa di un ottavo (croma). Inoltre imposta l'ottava su 4 e il tempo 

su X (X è la variabile ai input del tempo nel programma, visibile nel lista¬ 
to 2, linea 260). 

3. li suono è una croma, altezza Si, ottava 4. Basta specificare la nota 
perché il default è appunto croma, ottava 4. 

4. E un Fa# di terzina di un sedicesimo (semicroma). La terzina è indica¬ 
ta dall'apostrofo ('). Anche le due note seguenti (Sol e Fa#) sono note 

di terzina. 

5. Il Sol è nell'ottava 3, e quindi si deve specificare "3". Fine della misu¬ 
ra uno. 

6. Gli abbellimenti, Fa# e Sol, sono impostati sulla durata di una bi¬ 
scroma. 

7. Questo Fa#, scritto come croma, è impostato sulla semicroma per 
mantenere il ritmo, dato che gli abbellimenti che lo precedono occupano 
tempo. 

8. S in questo comando imposta lo Staccato. 

9. L reimposta il Legato (note collegate). 

10. Una pausa di una croma mette fine alla misura due. 

11. Per il "Tempo di valzer lento" l'X-50 imposta un tempo che è di 50 mo¬ 
vimenti al minuto più lento dell'introduzione. 

12. La nota è una minima puntata, altezza Si, con una fermata di una 
croma. La P imposta il Portato (note separate da una lieve pausa). 

13. Ritardando sta a indicare un graduale rallentamento. L'X-60 rallenta 
il tempo rispetto a quello precedente che era di X-50 movimenti al mi¬ 
nuto. 

14. AH'abbellimento viene data la durata di una biscroma. 

15. A tempo sta a indicare che il ritardando è finito e si deve riprendere 
il tempo originale. 

16. Questa nota è un Sol della durata di una semiminima. E' impostato il 
legato (in quanto la nota precedente era staccato). HE finale significa 
tenere una croma in più (legatura). 

17. Lo spartito esemplificativo si ferma qui. Per il resto della musica 
bisogna battere tutto il listato 2. 


Con un & seguito da <RETURN> 
si sentirà un suono breve e chiaro: 
l’& richiama il programma Milleno¬ 
te e suona la nota. Provate ancora a 
fare &<RETURN>. La nota che si 
sente è il Do centrale, che è nell’otta¬ 
va 3 dell’estensione di Millenote. Il 
suono è inoltre un quarto (semimini¬ 
ma) al tempo di 160 movimenti (di 
un quarto) al minuto. Battete adesso 
<RETURN> : sentirete 
quattro semiminime di Do centrale, 
suonate in legato, cioè senza interru¬ 
zioni o pause. Scopriamo così che 
le condizioni di default per Milleno¬ 
te sono quelle di altezza Do, ottava 
3, quarto (semiminima), legato, 160 
movimenti al minuto. 

Provate a battere: 
&:&D:&E:&F:&G:&A4:&B:&C. 
Avrete suonato la scala di Do. Il pri¬ 
mo suono (di default) era il Do cen¬ 
trale, il secondo il Re, il terzo il 
Mi, e così via (le lettere nel coman¬ 
do corrispondono alla denominazio¬ 
ne alfabetica delle note d’uso tedesco 
e anglosassone). Le diverse altezze 
sono specificate con il parametro di 
altezza, nell’estensione A-G (La- 
Sol). Tutte queste note vengono suo¬ 
nate come semiminime in legato, a 
160 movimenti al minuto. Dato che 
l’alfabeto musicale spazia soltanto 


da A a G (ossia da La a Sol) si è do¬ 
vuto ricominciare da capo con A 
(La) dopo G (Sol) sopra C (Do) cen¬ 
trale. Ma occorreva un La dell'ottava 
più alta seguente, perciò si è dovuta 
specificare una nuova ottava, in que¬ 
sto caso 4. Le ultime due note, Si e 
Do, hanno assunto il nuovo default 
ottava 4. Per suonare nuovamente la 
scala si dovrà rispecificare all'inizio 
l’ottava 3: 

&C3 : &D: &E: &F: &G: &A4: &B :C. 

La nota più bassa disponibile in 
Millenote è il Re diesis e le note 
specificate più basse di questa, per e- 
sempio &A1, &B1, &C1 e &D1, 
daranno pur sempre un suono, ma si 
tratterà di un Re diesis. L'altezza 
massima esatta a disposizione è 
&F5. 

Si possono specificare note più al¬ 
te (&G5, &A6 e così via) e verrà e- 
messo un suono, ma l’altezza non sa¬ 
rà esatta. Per avere i migliori risulta¬ 
ti è necessario tenere il parametro 
dell'ottava nell'estensione 2-5. 

Diesis, bemolle 
durata e staccato 

Che fare se occorre per la nota un 
diesis o un bemolle? E' semplice. I 
comandi &C3 : &C# daranno un Do 
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centrale e poi un Do diesis, mentre i 
comandi &E : &E! daranno un Mi e 
poi un Mi bemolle. 

E se occorre una diversa durata del¬ 
la nota? Anche questo è molto sem¬ 
plice. Provate a digitare: 
&CE3:&D:&E:&F:&G:&A4:&B: 
&CH. 

Sentirete la scala di Do suonata a 
velocità doppia della precedente (con 
l’eccezione dell'ultima nota), perché 
i suoni sono di un ottavo (croma) an¬ 
ziché di un quarto. La "E” che si tro¬ 
va alla prima nota indica appunto la 
durata di un ottavo (in inglese ei- 
ghth). E la ”H” dell’ultima nota indi¬ 
ca una metà (in inglese half), o mini¬ 
ma. Le durate disponibili sono inte¬ 
ro (semibreve), metà (minima), quar¬ 
to (semiminima), ottavo (croma), se¬ 
dicesimo (semicroma) e trentaduesi¬ 
mo (biscroma), in inglese rispettiva¬ 
mente whole, half, quarter, eighth, 
sixteenth e thirty-second, cioè W, 
H, Q, E, S e T. 

Il parametro di durata, se specifica¬ 
to, deve seguire immediatamente il 
parametro (o i parametri) di altezza. 


L'ottava, se specificata, deve seguire 
qualsiasi eventuale parametro di du¬ 
rata. Millenote permette anche le no¬ 
te con il punto, o puntate, dove il 
punto estende la durata di metà valo¬ 
re originale: &CH.3 suona un Do 
centrale della durata di una minima 
puntata (l'equivalente in durata di tre 
semiminime), &DQ. suona una se¬ 
miminima puntata (l'equivalente di 
tre crome) e così via. 

Infine si possono fare le terzine. 
Una terzina di tre semiminime, per e- 
sempio, è di durata uguale a due nor¬ 
mali semiminime. La codifica viene 
fatta con un comando del tipo 
&CQ':&:&:, dove l'apostrofo signi¬ 
fica nota di terzina. Per fare crome di 
terzina, tre delle quali sono uguali in 
durata a due crome normali, ossia a 
una semiminima normale, si deve fa¬ 
re il comando &CE’. Se si vuole u- 
na nota di terzina puntata bisogna 
mettere il punto prima dell’apostro¬ 
fo; per esempio &CQ.’ genererà una 
semiminima puntata di terzina. 

Per vedere in azione lo staccato, 
provate a battere: 


&CQS:&D:&E:&F:&G:&A4:&B: 

&CHL 

E' ancora la scala di Do, ma con 
un'importante differenza: le note so¬ 
no in staccato. Questo significa che 
la durata del suono è abbreviata e c’è 
una pausa fra nota e nota. La cosa 
importante da rilevare è che il tempo 
(160 movimenti al minuto) rimane 
immutato. E’ questa la forza di Mil¬ 
lenote: non bisogna più fare i calco¬ 
li per ottenere lo staccato delle note, 
è tutto automatico. 

Per avere lo staccato delle note ba¬ 
sta includere una lettera S nella li¬ 
sta dei parametri dopo l’altezza e la 
durata, come è visibile nell'esempio 
appena citato; se ci si dimentica di 
inserire il parametro di durata e si 
mette S per avere lo staccato, il pro¬ 
gramma penserà che S stia per sedi¬ 
cesimo e lo tratterà come parametro 
di durata. 

Per tornare al legato si batte la let¬ 
tera "L" (dopo i parametri di altezza 
e di durata), come si vede nell'ultima 
nota delle scale di Do riportate 
sopra. 


Listato 1. Millenote 

DOS 3.3 



Apple Ile 

9200.9600 

Apple Ile 


9200- 

A9 

4C 

8D 

F5 

03 

A9 

54 

8D 

9208- 

F6 

03 

A9 

92 

8D 

F7 

03 

A9 

9210- 

1B 

85 

73 

A9 

92 

85 

74 

20 

9218- 

1B 

92 

60 

A9 

06 

8D 

F6 

95 

9220- 

A9 

4D 

85 

06 

A9 

18 

85 

F9 

9228- 

A9 

26 

85 

08 

A9 

03 

85 

09 

9230- 

20 

34 

92 

60 

A9 

00 

8D 

F2 

9238- 

95 

8D 

F3 

95 

8D 

F 4 

95 

8D 

9240- 

F5 

95 

8D 

F7 

95 

8D 

F8 

95 

9248- 

8D 

F9 

95 

8D 

FA 

95 

8D 

FB 

9250- 

95 

85 

FA 

60 

20 

6F 

92 

20 

9258- 

69 

93 

20 

4 E 

94 

AD 

F5 

95 

9260- 

F0 

06 

A9 

00 

8D 

F5 

95 

60 

9268- 

20 

24 

95 

20 

E8 

94 

60 

20 

9270- 

B7 

00 

DO 

09 

68 

68 

20 

24 

9278- 

95 

4C 

E8 

94 

60 

C9 

B3 

DO 

9280- 

0A 

A9 

60 

8D 

24 

95 

8D 

E8 

9288- 

94 

DO 

14 

C9 

AE 

DO 

02 

F0 

9290- 

04 

C9 

A6 

DO 

10 

A9 

A5 

8D 

9298- 

24 

95 

A9 

AD 

8D 

E8 

94 

20 

92A0- 

B1 

00 

68 

68 

60 

20 

0A 

93 

92A8- 

20 

88 

93 

20 

B1 

00 

F0 

CC 

92B0- 

B0 

08 

38 

E9 

30 

85 

09 

4C 

92B8- 

AB 

92 

C9 

53 

DO 

08 

A9 

01 

92C0- 

8D 

F2 

95 

4C 

AB 

92 

C9 

50 

92C8- 

DO 

08 

A9 

01 

8D 

F3 

95 

4C 

92D0- 

AB 

92 

C9 

54 

DO 

0F 

20 

F5 

92D8- 

E6 

E0 

18 

B0 

02 

A2 

18 

86 

92E0- 

08 

20 

A8 

94 

60 

C9 

48 

DO 

92E8- 

06 

20 

39 

94 

4C 

AB 

92 

C 9 

92F0- 

4C 

DO 

14 

A9 

00 

8D 

F2 

95 

92F8- 

8D 

F3 

95 

8D 

F8 

95 

8D 

F9 

9300- 

95 

8D 

FA 

95 

8D 

FB 

95 

4C 

9308- 

AB 

92 

C9 

52 

DO 

06 

A9 

01 

9310- 

8D 

F4 

95 

60 

C9 

58 

DO 

1B 

9318- 

20 

B1 

00 

DO 

08 

20 

1B 

92 

9320- 

68 

68 

68 

68 

60 

A9 

01 

8D 

9328- 

F5 

95 

A5 

B8 

DO 

02 

C6 

B9 

9330- 

C6 

B8 

60 

38 

E9 

40 

0A 

AA 

9338- 

A9 

00 

8D 

F 4 

95 

20 

B1 

00 

9340- 

C9 

23 

DO 

11 

E8 

E0 

05 

DO 

9348- 

04 

E8 

4C 

65 

93 

E0 

0B 

DO 


9350- 

14 

E8 

4C 

65 

93 

C9 

21 

DO 

9358- 

04 

CA 

4C 

65 

93 

A5 

B8 

DO 

9360- 

02 

C6 

B9 

C6 

B8 

8E 

F6 

95 

9368- 

60 

AD 

F 4 

95 

F0 

05 

A9 

00 

9370- 

4C 

85 

93 

A6 

09 

AD 

F6 

95 

9378- 

CA 

F0 

06 

18 

69 

0E 

4C 

78 

9380- 

93 

AA 

BD 

9C 

95 

85 

06 

60 

9388- 

20 

B1 

00 

C9 

57 

DO 

07 

A9 

9390- 

60 

85 

07 

4C 

D6 

93 

C9 

48 

9398- 

DO 

07 

A9 

30 

85 

07 

4C 

D6 

93A0- 

93 

C9 

51 

DO 

07 

A9 

18 

85 

93A8- 

07 

4C 

D6 

93 

C9 

45 

DO 

07 

93B0- 

A9 

OC 

85 

07 

4C 

D6 

93 

C9 

93B8- 

53 

DO 

07 

A9 

06 

85 

07 

4C 

93C0- 

D6 

93 

C9 

54 

DO 

07 

A9 

03 

93C8- 

85 

07 

4C 

D6 

93 

A5 

B8 

DO 

93D0- 

02 

C6 

B9 

C6 

B8 

60 

A9 

00 

93D8- 

85 

FA 

A9 

00 

8D 

F7 

95 

A5 

93E0- 

07 

85 

F9 

20 

B1 

00 

C9 

2E 

93E8- 

DO 

13 

A5 

07 

8D 

FC 

95 

4A 

93F0- 

18 

6D 

FC 

95 

85 

F9 

90 

02 

93F8- 

E6 

F9 

20 

B1 

00 

C9 

27 

DO 

9400- 

CC 

06 

F9 

26 

FA 

A9 

00 

8D 

9408- 

FC 

95 

8D 

FD 

95 

A9 

03 

8D 

9410- 

FE 

95 

A0 

10 

06 

F9 

26 

FA 

9418- 

2E 

FC 

95 

2E 

FD 

95 

38 

AD 

9420- 

FC 

95 

ED 

FE 

95 

AA 

AD 

FD 

9428- 

95 

E9 

00 

90 

08 

8E 

FC 

95 

9430- 

8D 

FD 

95 

E6 

F9 

88 

DO 

DC 

9438- 

60 

A5 

FA 

48 

A5 

F9 

48 

20 

9440- 

88 

93 

18 

68 

65 

F9 

85 

F9 

9448- 

68 

65 

FA 

85 

FA 

60 

AD 

F7 

9450- 

95 

DO 

4F 

AD 

F2 

95 

F0 

0E 

9458- 

46 

FA 

66 

F9 

A5 

F9 

8D 

F8 

9460- 

95 

A5 

FA 

8D 

F9 

95 

AD 

F3 

9468- 

95 

F0 

37 

A5 

F9 

8D 

FC 

95 

9470- 

A5 

FA 

8D 

FD 

95 

4E 

FD 

95 

9478- 

6E 

FC 

95 

4E 

FD 

95 

6E 

FC 

9480- 

95 

4E 

FD 

95 

6E 

FC 

95 

38 

9488- 

A5 

F9 

ED 

FC 

95 

85 

F9 

A5 

9490- 

FA 

ED 

FD 

95 

85 

F,A 

AD 

FC 

9498- 

95 

8D 

FA 

95 

AD 

FD 

95 

8D 

94 AO- 

FB 

95 

A9 

01 

8D 

F7 

95 

60 

94 A8- 

A9 

00 

8D 

FC 

95 

8D 

FD 

95 

94B0- 

A9 

80 

8D 

FE 

95 

A9 

17 

8D 

94B8- 

FF 

95 

A0 

10 

0E 

FE 

95 

2 E 

94C0- 

FF 

95 

2E 

FC 

95 

2E 

FD 

95 

94C8- 

38 

AD 

FC 

95 

E5 

08 

AA 

AD 


94D0- 

FD 

95 

E9 

00 

90 

09 

8E 

FC 

94D8- 

95 

8D 

FD 

95 

EE 

FE 

95 

88 

94E0- 

DO 

DA 

AD 

FE 

95 

85 

08 

60 

94E8- 

AD 

F2 

95 

OD 

F3 

95 

DO 

01 

94F0- 

60 

A5 

FA 

48 

A5 

F9 

48 

AD 

94F8- 

F8 

95 

85 

F9 

AD 

F 9 

95 

85 

9500- 

FA 

18 

A5 

F9 

6D 

FA 

95 

85 

9508- 

F9 

A5 

FA 

6D 

FB 

95 

85 

FA 

9510- 

A5 

06 

48 

A9 

00 

85 

06 

20 

9518- 

24 

95 

68 

85 

06 

68 

85 

F9 

9520- 

68 

85 

FA 

60 

A5 

FA 

48 

A5 

9528- 

F9 

48 

A2 

04 

06 

F9 

26 

FA 

9530- 

CA 

DO 

F9 

A5 

08 

48 

A9 

00 

9538- 

85 

1A 

85 

1B 

85 

1C 

85 

FB 

9540- 

A0 

08 

46 

08 

90 

13 

18 

A5 

9548- 

F9 

65 

1A 

85 

1A 

A5 

FA 

65 

9550- 

1B 

85 

1B 

A5 

FB 

65 

1C 

85 

9558- 

1C 

06 

F9 

26 

FA 

26 

FB 

88 

9560- 

DO 

E0 

68 

85 

08 

68 

85 

F9 

9568- 

68 

85 

FA 

A6 

06 

DO 

05 

A9 

9570- 

01 

8D 

7D 

95 

CA 

F0 

05 

EA 

9578- 

EA 

4C 

81 

95 

8D 

30 

CO 

A6 

9580- 

06 

A5 

1A 

DO 

OC 

A5 

1B 

DO 

9588- 

06 

A5 

1C 

F0 

09 

C6 

1C 

C6 

9590- 

1B 

C6 

1A 

4C 

74 

95 

A9 

30 

9598- 

8D 

7D 

95 

60 

FF 

FF 

FF 

FF 

95A0- 

FF 

FF 

FF 

FF 

FF 

FF 

F6 

F 6 

95A8- 

E8 

DB 

CF 

C3 

B8 

AC 

A4 

A4 

95B0- 

9B 

92 

8A 

82 

7B 

7B 

74 

6D 

95B8- 

67 

62 

5C 

57 

52 

52 

4D 

49 

95C0- 

45 

41 

3E 

3E 

3A 

37 

34 

31 

95C8- 

2E 

2B 

29 

29 

27 

25 

23 

21 

95D0- 

1F 

1F 

1D 

1B 

1A 

18 

17 

16 

95D8- 

14 

14 

13 

12 

11 

10 

0F 

0F 

95E0- 

0E 

'od 

OC 

0B 

0A 

09 

08 

08 

95E8- 

07 

06 

05 

04 

03 

03 

02 

01 

95F0- 

00 

00 

A0 

A0 

A0 

A0 

C5 

A0 

95F8- 

BA 

A0 

A0 

A0 

A0 

A0 

AD 

A0 

9600- 

A0 









Checksum del listato 1 

NOME FILE: 

MILLENOTE 

TIPO: B 


LUNGHEZZA: 

0400 

CHECKSUM : 

A6 
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Portato, fermate, 
legature e tempo 

A volte possono occorrere note 
che non siano staccate, ma abbiano 
una breve pausa fra l’una e l'altra; in 
questo caso si parla allora di portato 
o mezzo staccato. Si può ottenerlo 
con il comando Pause (o portato). 
Di conseguenza &F#QP:&:&:& da¬ 
rà quattro semiminime Fa# con una 
lieve interruzione fra le note. Con¬ 
frontando &F#QP:&:&:& con &F# 
QL:&:&:&, noterete che il comando 
di legato disattiva il portato (oltre a 
disattivare lo staccato). Se nella lista 
dei parametri sono compresi entram¬ 
bi i comandi staccato e portato, la 
nota sarà ancora più corta, con una 
concomitante pausa più lunga (vale 
a dire portato e staccato si aggiungo¬ 
no l'uno all'altro). 

Per passare dal puro staccato al pu¬ 
ro portato bisogna fare qualcosa del 
tipo &CQLS :&DQLP:&EQL. La L 
nella prima nota elimina qualsiasi 
portato o staccato che si trovi lì per 
una nota precedente, e poi la S dà lo 
staccato àia nota. La L nella secon¬ 
da nota cancella lo staccato dalla pri¬ 
ma nota e la P la rende una nota con 
portato. Infine la terza nota (e natu¬ 
ralmente le note successive) verrà 
impostata sul legato con la L conclu¬ 
siva. Anche una fermata (corona) o 
una legatura si realizzano facilmente 
con Millenote. Per esempio il co¬ 
mando &GWHW avrà come effetto 
due semibrevi legate. La H che se¬ 
gue il parametro di altezza e il pri¬ 
mo parametro di durata indica una 
fermata o corona (in inglese hold, 
trattenere) e la W (iniziale dell’ingle¬ 
se whole) dopo la H indica una nota 
intera o semibreve. Si deve fare at¬ 
tenzione che il comando H venga do¬ 
po l’altezza e il primo parametro di 
durata; in caso contrario il program¬ 
ma penserà che H stia per H, cioè 
per metà o minima. 

Con il comando &GISHH.3 suo¬ 
nerete un Sol bemolle dell'ottava 3 e 
di durata uguale alla somma di un se¬ 
dicesimo (semicroma) e di una metà 
(minima) puntata. Notate che dopo 
la specificazione dei parametri di al¬ 
tezza e durata i parametri di fermata 
e il parametro di ottava possono es¬ 
sere enunciati in qualsiasi ordine. 

Si possono anche avere legature 
multiple: cronometrate la nota 
&CWHWHWHWHWHWHW. Do¬ 
vreste ottenere una durata appena in¬ 
feriore a 10,5 secondi, sempre che 




Listato 2. Millenote demo 1 

DOS 3.3 

10 REM - 

11 REM MILLENOTE - DEMO 1 

12 REM DI S. SCOTT ZIMMERMAN 

13 REM COPYRIGHT (C) 1986 


Apple Ile 

Apple Ile 


14 REM BY APPLICANDO 4 

15 REM MICROSPARC, INC. 

16 REM - 

120 IF PEEK (37403) = 169 AND PEEK (38385) = 0 AND PEEK (1014) 
= 84 AND PEEK (1015) = 146 THEN 160: REM CONTROLLA SE "MI 
LLENOTE" E' PRESENTE IN MEMORIA ED INIZIALIZZATO 
140 PRINT CHR$ (4);"BRUN MILLENOTE" 

160 TEXT : HOME : VTAB 2: PRINT "(C) 1986 APPLICANDO 4 MICROSPARC 
, INC." 

180 VTAB 6:A$ = "VALZER DI MUSETTA": HTAB (41 - LEN (A$)) / 2: I 
NVERSE : PRINT A3: NORMAL : PRINT :A$ = "DA 'LA BOHEME' DI PU 
CCINI": HTAB (41 - LEN (A3)) / 2: PRINT A3 
200 PRINT : PRINT :A3 = "PROGRAMMATO DA": HTAB (41 - LEN (A3)) / 
2: PRINT A3:A3 = "S. SCOTT ZIMMERMAN": PRINT : HTAB (41 - L 
EN (A3)) / 2: PRINT A3 

220 PRINT : PRINT :A3 = "CON": HTAB (41 - LEN (A3)) / 2: PRINT A 

3:A3 = " M I L L E N O T E ": PRINT : HTAB (41 - LEN (A3)) / 

2: INVERSE : PRINT A3: NORMAL 

260 X = 150: VTAB 23: CALL - 868: PRINT "CHE TEMPO (IN MOVIMENTI 
/MIN)? "; X; : POKE 36, ( PEEK (36) - 3): INPUT "";X3: VTAB 23: 
HTAB 1: CALL - 868 
280 IF X3 = "" THEN 380 
300 X = VAL (X 3) 

320 IF X > 255 THEN X = 255 
340 IF X < 61 THEN X = 61 

360 REM NOTE INTRODUZIONE DEL "VALZER DI MUSETTA": 

380 & X: & RE4TX: & B: & D: & G: & F#S': & G: & F#: 4 DE: & B: & 

G3: REM FINE DELLA PRIMA BATTUTA 
400 4 F#T: & G: & F#S: & EES: & G: & D: & G#: 4 C#: & AE4L: 4 R: 


420 

4 RH: 4 AES: 

FINE DELLA 
REM INIZIO 

4 R: 4 RQ: 4 AE: 4 
QUARTA BATTUTA 
SEZIONE TEMPO 3/4 

R: 

4 RQ: 

4 AE: 4 R: 4 RQ 

~".v* 

440 

4 DH4LT(X - 

50): 4 DS3: 4 F#: 4 

A4: 

: 4 D: 

4 C#H: 4 DS3: 4 


& A4: 4 C#: 4 BH.HEP: 4 BEL: 4 C#ET(X -60): 4 ET: 4 DET(X - 
75): 4 C#: & B: & DET (X -50): & G3: 4 GQS: 4 GQLHE 
460 & AE4P: & BET(X -60): 4 DTL: 4 C#EPT (X -75): & B: 4 A: REM 

FINE DELLA FIGURA 1 

470 4 XTLT(X - 50): & A: 4 C#E: 4 F#3: 4 F#QS: 4 FfQLHE 
480 & AE3: & B: & D: & F#: & A4: & DH: 4 DS3: 4 F#: 4 A4: 4 D: 4 
C#H 


500 


520 

540 

560 


580 

600 

620 

640 


4 DS3: 4 F#: 4 A4: 4 C#: 4 BH.HE: 4 BE: 4 C#: 4 ET: 4 DE: 4 C 

#: 4 B: 4 AS'T(X -70): 4 B: 4 AE5T(X - 100): 4 F#E4T(X - 70) 

: 4 E: 4 D:: 4 B: 4 F#E3HET (X -50): 4 AE4: 4 AQ: 4 EE3S: 4 F 
#: 4 XEL: 4 D: 4 R: 4 D: 4 REHQHH. 

REM FINE DEL VALZER DI MUSETTA 

VTAB 23: CALL - 868: PRINT "VUOI RIASCOLTARLO? (S/N)" 

VTAB 23: HTAB 37: INVERSE : PRINT' " 4 CT5ST255: 4 RW: HTA 

B 37: NORMAL : PRINT " ": IF PEEK ( - 16384) < 128 THEN 4 G 

T4: 4 RW: IF PEEK ( - 16384) < 128 THEN 560 

X = PEEK ( - 16384): POKE - 16368,0 
IF X = 211 THEN 260 
IF X = 206 THEN END 
GOTO 560 


Checksum del listato 2 

NOME FILE: 

MILLENOTE DEMO 1 

TIPO: A 


LUNGHEZZA: 

0 6B9 

CHECKSUM : 

DO 


siate in grado di calcolarla: il tempo 
di default è di 160 movimenti/minu¬ 
to, che è il numero delle semimini¬ 
me al minuto. Ogni semibreve equi¬ 
vale a quattro semiminime, e la nota 
riportata qui sopra ha sette equivalen¬ 
ti di semibreve. La nota dovrebbe a - 
vere una durata uguale a 4x7=28 se¬ 
miminime. La durata totale dev'esse¬ 
re perciò (28 movimenti)/(160 movi¬ 
menti/min) = (0,175 min) (60 
sec/min) = 10,5! 

E veniamo al tempo: può darsi 
che vogliate accelerare o rallentare u- 
na melodia rispetto al default di 160 
movimenti/minuto. Notate allora 
questo comando: &FQT180. Dopo 


la specificazione dei parametri di al¬ 
tezza e durata viene data una T per il 
Tempo, seguita da un numero intero 
uguale ai movimenti al minuto desi¬ 
derati. Di fatto quello del tempo è il 
solo comando di Millenote che pos¬ 
sa gestire un'espressione in Appleso¬ 
ft, purché l'espressione sia un valore 
intero compreso nell'arco 24-255. 
Per esempio si potrebbe usare il co¬ 
mando TP=20:&FQT(200-TP) per 
ottenere il tempo di 180 movimen¬ 
ti/minuto. Ed ecco come ottenere un 
ritardando (rallentamento graduale): 
TEMPO=160:&CQ3TTEMPO:&D: 
&E: &F: &GQT(TEMPO-30): &AQ4 
(TEMPO-60):&BQT(TEMPO-90): 


22 












adverteam 


L'H/lzGA 


LA VELOCITA' DEL WINCHESTER, 
LA VERSATILITÀ DEL FLOPPY 

CON LA SICUREZZA 
DI DERNOULLI DOX 


Bernoulli Box: un sistemo rivoluzionario nelle 
memorie di masso. 

Bernoulli Box: un sistemo composto da cartuc¬ 
ce estremamente affidabili do 5-10-20 milio¬ 
ni di caratteri ciascuno che in dimensioni com¬ 
patte offrono tempi di accesso molto bossi 
(35 ms medio) e uno resistenza agli shock 
sinora impensabile. 

■L'estroibilitò e l'intercambiabilità delle cartuc¬ 
ce aumentano a dismisura le capacità di me¬ 
moria di mossa e rendono possibile lo scam¬ 
bio di dati tra vari personals (IBM, OLIVETTI, 
APPLE, PHILIPS, SPERRY, ecc.). 


MODELLO 

CAPACITÀ IN 
MDYTES 

TEMPO ACCESSO 
MEDIO IN MSEC 

FATTORE 

FORMA 

B105E 

5 

05 

5,25" - 
FULL-SIZE 
MONTAGGIO 
INTERNO 

A110HE 

10 

35 

SOTTOSISTEMA 
A 1 DI5CO 

A210HED 

2x10 

35 

SOTTOSISTEMA 
A 2 DISCHI 

A120HE 

1x20 

35 

SOTTOSISTEMA 
A 1 DISCO 

AE20HE 

2x20 

35 

SOTTOSISTEMA 
A 2 DISCHI 



Senza alcun impegno desidero ricevere: 


□ Documentazione tecnico relativo a: 


□ Visito di un Vs. Funzionario 
Nome e Cognome 


Società/Ente 


Via 


Città 

CAP 

Telefono 



AR 



Telcom srl - 20146 Milano 
Via M. Civitoli, 75 
Tel. 02/4047646-4049046 
Telex 335654 TELCOM I 
Telefax 02/437964 




















i 1 s 




&CW. Dato che valuta un’espressio¬ 
ne, il comando di tempo deve venire 
per ultimo nella lista dei parametri 
(seguendo almeno i parametri di al¬ 
tezza e durata). 

Millenote, infine, permette di spe¬ 
cificare le pause con la durata oppor¬ 
tuna. Il comando &R (dove R sta 
per rest, in inglese pausa) genererà 
un intervallo senza suono di durata 
uguale all’ultima nota suonata. 

Si può esplicitamente specificare 
la durata di una pausa di una semimi¬ 
nima, per esempio, con il comando 
&RQ, e una legatura di una pausa di 
una semibreve con una minima pun¬ 
tata mediante il comando &RWHH. 

Comandi ausiliari 
e sommario principale 

Abbiamo visto così tutti i coman¬ 
di principali. Restano da vedere quat¬ 
tro comandi ausiliari, peraltro molto 
utili. Il primo, &X, reimposta auto¬ 
maticamente tutti i default originali 
(Do centrale, semiminima, legato, 
160 movimenti/min) senza suonare 
di fatto una nota. Il secondo coman¬ 
do, &X[parametri], è esattamente co¬ 
me ogni altro, con la differenza che 
al posto di un parametro d'altezza c’è 
una X. Questo permette di imposta¬ 
re i parametri senza suonare una no¬ 
ta. Per esempio &XQT120:&C:&D 
farà in modo che C (Do) e D (Re) 
suonino come semiminime al tem¬ 
po di 120 movimenti al minuto. 

Gli ultimi due comandi ausiliari 
sono &STOP e &RESTORE (o in 
alternativa &RESUME), vale a dire 
rispettivamente Fermare, Ripristina¬ 
re e Riprendere. 

Nei programmi musicali è utile a- 
vere una possibilità di scelta fra suo¬ 
no e silenzio, e questo si ottiene in¬ 
serendo nei programmi in Applesoft 
le seguenti istruzioni: 


100 PRINT "VUOI IL SUONO? 

(S/N)”;: GET A$ 

120 IF A$ = ”N" THEN &STOP: 
REM DISATTIVA IL SUONO 
SUSSEGUENTE 
140 IF A$ = ”S" THEN &RESTO 
RE: REM RIPRISTINA IL 
SUONO 


Con l'opportuna codificazione nel 
programma si può consentire all'u¬ 
tente di disattivare (&STOP) e di 
riattivare (&RESTORE o &RESU- 
ME) il suono generato da Mille¬ 
note. 


Ecco infine un sommario di tutti i 
comandi disponibili con il program¬ 
ma Millenote: 

1. Il comando generale, compren¬ 


sivo delle opzioni dei parametri, è 
& {[altezza: A-G[#] [!]][R)est]} {dura¬ 
ta: W,H,Q,E,S ,T[.] [’]} [ottava: 1 -6] {L) 
egato] [Smaccato] [P)ortato] [H)old 


Listato 3. Millenote demo 2 


MILLENOTE - DEMO 2 
DI S. SCOTT ZIMMERMAN 
COPYRIGHT (C) 1986 

BY APPLICANDO & 
MICROSPARC, INC. 


PEEK (37403) =169 AND PEEK (38385) = 0 AND PEEK (1014) 
= 84 AND PEEK (1015) = 146 THEN 160: REM CONTROLLA SE "MI 
LLENOTE" E' IN MEMORIA 
140 PRINT CHRS (4 );"BRUN MILLENOTE" 

160 TEXT : HOME : VTAB 2: PRINT "(C) 1986 BY APPLICANDO & MICROSP 
ARC/INC. " 

180 VTAB 6 :AS = " INVENZIONE N. 8 " : HTAB (41 - LEN (A$)) / 2: I 
NVERSE : PRINT A$: NORMAL : PRINT :A$ = "DI JOHANN SEBASTIAN 
BACH": HTAB (41 - LEN (A$)) / 2: PRINT A$ 

200 PRINT : PRINT :A$ = "PROGRAMMATO DA": HTAB (41 - LEN (A$)) / 
2: PRINT A$:A$ = "S. SCOTT ZIMMERMAN": PRINT : HTAB (41 - L 
EN (A$)) / 2: PRINT A$ 

220 PRINT : PRINT :A$ = "CON": HTAB (41 - LEN (A$)) / 2: PRINT A 
$ :A$ = "MILLENOTE": PRINT : HTAB (41 - LEN (A$)) / 
2: INVERSE : PRINT A$: NORMAL 

260 X = 126: VTAB 23: CALL - 868: PRINT "CHE TEMPO (IN MOVIMENTI 
/MIN)? " ; X; : POKE 36, ( PEEK (36) - 3): INPUT "";X$: VTAB 23: 
HTAB 1: CALL - 868 
280 IF X$ = "" THEN 380 
300 X = VAL (X$) 

320 IF X > 255 THEN X = 255 

340 IF X < 61 THEN X = 61 ^ 

360 REM NOTE DI " INVENZIONE N.8 DI BACH": 

380 & RETX : & FE3S : & A4 : & F3': & C< : & -F3': & FÉ4L: & ES : & D : & 

C: & D: & C: & B! : & A: & B! : & A: & G3: REM BATTUTE 1-2 
400 & FES: & A4: & C: & A: & F: & C: & AS5L: & C: & B!: & C: & A: 

& C: & B!: & C: & A: & C: & B! : & C: REM BATTUTE 3-4 
420 & F4: & A5: & G4: & A5: & F4: & A5 : & G4: & A5: & F4: & A5: & 

G4 : & A5: & D4: & F: & E: & F: & D: & F: & E: & F: & D: & F: 

& E: & F: REM BATTUTE 5-6 

440 & BES: & G3: & D4: & B: & F: & D: & GSL: & A5: & G4: & F: & E 

: & F: & E: & D: & C: & D: & C: & B!: REM BATTUTE 7-8 

460 & AES: & DSL: & C: & B: & C: & B: & A: & G3: & A4: & G3: & F: 

& E: & F: & E: & D: & CEL: &CS4: & B: & CES: & EE3L: REM B 
ATTUTE 9-10 


10 REM 

11 REM 

12 REM 

13 REM 

14 REM 

15 REM 

16 REM 
120 IF 


DOS 3.3 


Apple Ile 
Apple Ile 


-f 480 & FES: & C4: & É3: & C4: & D3: & B4: & CQL: & RQ: & : & RE: & 
CES: & E: & C: & G: & C: REM BATTUTE 11-13 
*■500 & CE5L : & BS: & A: & G4: & A5: & G4: & F: & E: & F : & E: & D: 

& C: & B!: & C: & A5: & C4: & A5: & B! 4 : & A5: & C4: & A5: & 

A4: & A5: REM BATTUTE 14-15 

520 & B!E4S: & G3: & B!4: & G3: & D4: & G3: & GEL4: & FS: & E!: & 

D: & E!: & D: & C: & B!: & C: & B!: & A: & GES3: & B! 4 : & D: 

& B!: & G: & D: REM BATTUTE 16-18 
540 & B ! E5S :, & C#4: & B ! 5 : & C#4: & B!5: & C#4: & D: & A: & F: & 

D: & A5: & F4: REM BATTUTE 19-20 

560 & GSL: & F: & G: & B ! 5 : & C4: & B! 5 : & D4: & B! 5 : & E4: & B! 5 

: & C4: & B! 5 : & F4: & E: & F: & A5: & B4: & A5: & C#4: & A5: 

& D4: & A5: & B4: & A5: REM BATTUTE 21-22 
580 & E4: & D: & E: & G: & A: & G: & B: & G: & C#: & G: & A: & G: 

& FEL: & D: & B!ES: & D: & G3: & F4: REM BATTUTE 23-24 


600 & EEL: & C: & AES: & C: & F3: & E ! 4 : & DSL: & F: & E!: & F: & 

D: & F : & E ! : & F : & D : & F : & E ! : & F : & B ! : & D : & C : & D : 
& B!: & D: & C: & D: & B!: & D: & C: & D: REM BATTUTE 25-27 


620 

& G3 : 

: & B ! 4 : 

& A: & B!: 

: & G3 : & B! 4: 

& A: 

& B!: & G3: & B! 4 : 



& A: 
8-29 

& B! : & 

EE3S: & C: 

: & G: & E: & 

B! 4 : & 

G3: REM BATTUTE 

2 

640 

& CS4L: & D: 

& C: & B!: 

: & A: & B!: & 

A: & 

G3 : & F : & G : & F : 



& E! : 

: & DES: 

& GSL: & F: & E: & F: & 

E: & 

D: & C: & D: & C: 

& 


B! : 

REM BATTUTE 30-31 




660 

& A: 

& B! : & 

A: & G2: t 

; FE: & FS3: & 

E: & 

FES: & A: & B!: & 

F 


ET (X 

- 10) : 

& AET (X - 20): & FET (X - 

30) : 

& G2ET (X - 45) : & 

E 


3: & FQL: & RQHQ: REM BATTUTE 32-33 
680 REM FINE DELL'INVENZIONE N.8 DI BACH 
700 VTAB 23: CALL - 868: PRINT "VUOI RIASCOLTARLA? (S/N)" 

720 VTAB 23: HTAB 37: INVERSE : PRINT " "; : & CT5ST255 : & RW: HTA 
B 37: NORMAL : PRINT " ": IF PEEK ( - 16384) < 128 THEN & G 
T4: & RW: IF PEEK ( - 16384) < 128 THEN 720 
740 X = PEEK ( - 16384): POKE - 16368,0 
760 IF X = 211 THEN 260 
780 IF X = 206 THEN END 
800 GOTO 720 


Checksum del listato 3 

NOME FILE: 

MILLENOTE DEMO 2 

TIPO: A 


LUNGHEZZA: 

08BB 

CHECKSUM : 

1E 
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Sette minuti 
, e la chiave 


del Mac Basic 
Club è tua 


Sette minuti possono aprirti la porta 
di un nuovo mondo: quello dei 
programmi scritti da te come ^ 
servono a te, sulla misura 
delle tue esigenze. Sette minuti 
bastano per decidere di entrare 
nel Club di chi sa ottenere dal 
suo Macintosh esattamente 
quello che vuole. Il Mac Basic Club 
ti offre proprio questo: tutorial in 
italiano, routines, trucchi e segreti, 
suggerimenti, idee. In pratica il Club 
offre tutto il supporto che ti è 
necessario per imparare senza 
s fatica il Basic Microsoft. E te lo 
offre gratis se non possiedi ancora il 
Microsoft Basic 2.1. Iscrivendoti al 
Mac Basic Club riceverai infatti, 

_ subito e direttamente 
al tuo indirizzo 
il Microsoft 
Basic 2.1 in 
confezione 
originale 
completa di 
manuale, 
più il primo 
numero del 
bimestrale su dischetto del 
Mac Basic Club. Gli altri cinque dischetti 
ti verranno spediti via via che verranno 
pubblicati. Ma tu pagherai solo il prezzo 
del Microsoft Basic 2.1, e cioè 327.000 
lire (più Iva 9%). Ma anche se possiedi già 
il Basic puoi iscriverti al Mac Basic Club 
in questo caso riceverai solo i sei numeri 
del bimestrale su dischetto del Club, e 
pagherai 160.000 lire (più Iva 9%). 

Mac Basic Club è un'iniziativa 

nQ 


-q - 

basic 
Club. 



Il Microsoft Basic permette di 
programmare in un ambiente 
altamente interattivo, 
sfruttando tutte le potenzialità 
_ di Macintosh: la grafica, 

■ il suono, le finestre, i menù. 

Comprende strutture 
di controllo avanzate come le 
istruzioni PRINT USING, 
IF/THEN/ELSE, WHILE/WEND, ecc. 
In più, rispetto al Microsoft Basic 2.0, 
il Microsoft Basic 2.1 è in pratica 
due volte più veloce. 
Ed è sicuramente il 
linguaggio che più 
rapidamente e più 
facilmente ti farà 
ottenere risultati 
davvero 
professionali. 
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[durata]} {T)empo [aexpr 24-255]} 
dove ogni parametro di tipo non spe¬ 
cificato va per default a quello speci¬ 
ficato più di recente (o, se non è sta¬ 
to mai specificato, al default origina¬ 
le, vale a dire Do centrale, semimini¬ 
ma, legato, 160 movimenti/minu¬ 
to). 

I vari parametri sono definiti come 
segue: 

a. Le lettere A-G rappresentano le 
otto altezze primarie della scala mu¬ 
sicale. Se è specificato un qualsiasi 
parametro di nota l'altezza deve esse¬ 
re il primo parametro dopo l'&. 

b. Immediatamente dopo la lettera 
dell'altezza un # significa diesis e un 
! significa bemolle. Si può specifica¬ 


re soltanto uno di questi in un singo¬ 
lo comando &. 

c. R significa pausa (in inglese re- 
st). Deve essere il primo parametro 
nel comando &. 

d. Dopo il parametro (o i parame¬ 
tri) di altezza o di pausa, W = intero 
(semibreve), H = metà (minima), Q 
= quarto (semiminima), E = ottavo 
(croma), S = sedicesimo (semicro¬ 
ma), e T = trentaduesimo (biscroma) 
stanno per la durata della nota (le ini¬ 
ziali sono, come si è visto sopra, 
quelle delle parole inglesi whole, 
half, quarter, eighth, sixteenth e thir- 
tysecond). Il parametro di durata, se 
è specificato, deve seguire immedia¬ 
tamente il parametro d'altezza. 


e. Un punto (.) che segue subito il 
parametro di durata modifica la dura¬ 
ta, dando una nota puntata. 

f. Un apostrofo (*) che segue imme¬ 
diatamente il parametro di durata mo¬ 
difica la durata dando una nota di ter¬ 
zina. L'apostrofo deve seguire il pun¬ 
to se sono specificati entrambi. 

g. Un numero intero nell'arco 1-6 
indica l'ottava. Ogni ottava abbrac¬ 
cia le note che cominciano con La 
bemolle e terminano con Sol diesis. 
Per avere le altezze esatte usate sol¬ 
tanto la fascia di ottave 2-5. Il para¬ 
metro di ottava può essere dato in 
qualsiasi punto dopo i parametri di 
altezza e di durata, a meno che non 
sia specificato nessun parametro di 
durata, nel qual caso il numero del¬ 
l'ottava viene enunciato immediata¬ 
mente dopo il parametro di altezza. 

I seguenti comandi, se specificati, de¬ 
vono venire dopo il parametro (o i 
parametri) di altezza e il parametro 
(o i parametri) di durata,, ma non in 
un ordine particolare, salvo che il pa¬ 
rametro di Tempo deve venire per ul¬ 
timo. 

h. Una L imposta il modo durata 
sul legato (nessuna interruzione fra 
le note). S imposta iLmodo sullo 
staccato (la durata del suono è dimez¬ 
zata, e dopo la nota si ha una pausa 
di silenzio uguale alla nuova durata). 
P imposta il modo sul portato (la 
durata è lievemente diminuita con u- 
na breve pausa dopo la nota). I para¬ 
metri S e P si sommano, vale a dire 
se entrambi sono specificati in un'u¬ 
nica nota la durata del suono sarà ac¬ 
corciata da entrambi i comandi, e la 
pausa dopo la nota sarà allungata da 
entrambi. 

i. Una H indica una nota tenuta (os¬ 
sia una fermata). Immediatamente do¬ 
po la H deve essere dato un parame¬ 
tro di durata (W, H, Q, E, S o T, 
con facoltà di punto e/o apostrofo). 
In un’unica nota si può dare un mas¬ 
simo di 116 set di fermate, per quan¬ 
to nella pratica sia raro che se ne co¬ 
difichino più di tre. 

j. Come ultimo parametro specifica¬ 
to T imposta il tempo sul numero 
di movimenti al minuto, uguale al¬ 
l’espressione Applesoft che segue la 
T. L’espressione deve dare un valore 
intero nell'arco compreso fra 24 (il 
tempo più lento) e 255 (il tempo 
più veloce). 

2. Con Millenote sono disponibi¬ 
li anche i comandi ausiliari illustra¬ 
ti qui sotto. Sono chiamati ausiliari 


Listato 4. Millenote effetti sonori 

DOS 3.3 



10 REM — — — — 

11 REM MILLENOTE - EFFETTI SONORI 

12 REM DI S. SCOTT ZIMMERMAN 

13 REM COPYRIGHT (C) 1986 

Apple Ile 

Apple Ile 


14 REM BY APPLICANDO & 

15 REM MICROSPARC, INC. 

16 REM - 


120 TEXT : HOME : VTAB 2: PRINT "(C) 1986 BY APPLICANDO & MICROSP 
ARC,INC.": VTAB 6:A$ - "MILLENOTE - EFFETTI SONORI": HTAB (41 
- LEN (A$>) / 2: INVERSE : PRINT A$: NORMAL 
140 PRINT :A$ = "DI S. SCOTT ZIMMERMAN": HTAB (41 - LEN (A$)) / 
2: PRINT A$ 

160 PRINT CHR$ (4);"BRUN MILLENOTE" 

180 VTAB 17: INVERSE : PRINT "EFFETTI SONORI:": NORMAL 
200 GOSUB 2000: PRINT "FISCHIO (?)": & X: POKE 8,1: FOR I « 240 T 
O 250: POKE 6,252 - I: & : NEXT : & X: & RH: & X: POKE 8,1: F 
OR I = 2 TO 50: POKE 6,1: & : NEXT : GOSUB 1000: IF A$ = "S" 
THEN 200 

220 GOSUB 2000: PRINT "INCONTRO CON IL MOSTRO (?)": & X: FOR I = 

1 TO 10: & CT.3: & C#: NEXT : GOSUB 1000: IF A$ = "S" THEN 22 

0 

240 GOSUB 2000: PRINT "MOVIMENTO ASTRONAVE (?)" : & X: POKE 8,5: F 
OR' L = 1 TO 30: POKE 6,( RND (1) *20+10): & : NEXT : GOSUB 
1000: IF A$ = "S" THEN 240 

260 GOSUB 2000: PRINT "TIC-TAC": & X: FOR I = 1 TO 3: & CT5PST255 

: & RW: & GT4: & RW: NEXT : GOSUB 1000: IF A$ = "S" THEN 260 

280 GOSUB 2000: PRINT "SIMULATORE DI CTRL-G (BIP)": & X: FOR I = 

1 TO 3: & A#E5: & RQ: NEXT : GOSUB 1000: IF A$ = "S" THEN 280 
300 GOSUB 2000: PRINT "SERPENTE (?)": & X: FOR I = 1 TO 50: POKE 
8,1: POKE 6,3: & : NEXT : GOSUB 1000: IF A$ = "S" THEN 300 
320 GOSUB 2000: PRINT "UCCELLINO": & X: FOR I = 1 TO 3: POKE 8,1: 
FOR J = 2 TO 6: POKE 6,J: & : NEXT J: & X: & RQ: NEXT I: GOS 
UB 1000: IF A$ = "S" THEN 320 

340 GOSUB 2000: PRINT "FISCHIO ARBITRO (?)": & X: POKE 8,1: FOR I 
= 1 TO 50: & A6: & A#6: NEXT : GOSUB 1000: IF A$ = "S" THEN 
340 

360 GOSUB 2000: PRINT "FISCHIO ARBITRO PIU 1 FORTE (?)": & X: POKE 
8,1: FOR 1=1 TO 50: & C6: & C#6: NEXT : GOSUB 1000: IF A$ 

= "S" THEN 360 

380 GOSUB 2000: PRINT "SIRENA D’AMBULANZA": & X: FOR I = 1 TO 4 : 

& CQ3: & G2: NEXT : GOSUB 1000: IF A$ = "S" THEN 380 
400 GOSUB 2000: PRINT "'FANFARA 'CARICA'": & GE3PT230: & CE4: & E 
: & GQL: & EE: & GH: GOSUB 1000: IF A$ = "S" THEN 400 
420 GOSUB 2000: PRINT "SQUILLO TELEFONO": & X: POKE 8,6: POKE 6,2 
7: FOR I = 1 TO 30: & : NEXT : GOSUB 1000: IF A$ = "S" THEN 4 
20 

440 GOSUB 2000: PRINT "ELETTRICITÀ' STATICA (CONTATORE GEIGER)": 

& XS2ST255: FOR I = 1 TO 80: POKE 8, RND (1) * 10: & A: NEXT 
: GOSUB 1000: IF A$ = "S" THEN 440 
460 HOME : END 

1000 VTAB 20: HTAB 1: CALI, - 868: PRINT "VUOI RIASCOLTARLO? (S/N 
) ";: GET A$: PRINT A$: RETURN 

2000 VTAB 20: HTAB 1: CALL - 868: RETURN 


Checksum del listato 4 

NOME FILE: 

MILLENOTE EFFETTI SONORI 

TIPO: A 


LUNGHEZZA: 

0585 

CHECKSUM : 

3E 
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Abbiamo già venduto 2 milioni di 
High Precision Data Memories. 



E siamo solo agii inizi. 


High Precision che, trattandosi di un di¬ 
schetto flessibile, dice tutto. 

Precisione per HP Data Memories è il 
risultato di una tecnologia avanzatissi¬ 
ma che si avvale delle ultime novità in 
fatto di materie prime, formulazione 
magnetica, costruzione e sistemi di 
confezione. 

Non c'è da stupirsi, se pensiamo che 
questo marchio di successo ha dietro di 
sè tutta l’esperienza commerciale e tec¬ 
nologica di un’azienda come la MEE. 
HP Data Memories unisce eccezionali 


caratteristiche di chiarezza del segna¬ 
le, alta resistenza del substrato in po¬ 
liestere, lunga durata. 

I numerosissimi test cui viene sottopo¬ 
sto durante il ciclo di fabbricazione ne 
garantiscono prestazioni molto superio¬ 
ri a quelle dettate dai normali standards 
quantitativi. 

Preciso, resistente, affidabile anche 
nelle situazioni più critiche, il dischet¬ 
to HP Data Memories - 
prodotto nei formati 8”, 

5 1/4”, 3 1/2”-ècerti¬ 
ficato 100% error free 


secondo le norme ANSI, ECMA, ISO, 
JIS, IBM, SHUGART. 

Del resto che sia un prodotto di primis¬ 
sima qualità è dimostrato dalla sua in¬ 
credibile diffusione, ben 2.000.000 di 
pezzi venduti in pochissimo tempo. 
Un "dischetto d’oro” in piena regola 
che ha tutte le intenzioni di continuare 
su questa strada fino ad un prossimo 
ancora più ambizioso traguardo. 



s.p.a. ■20144 MHano-Via Boni, 29. 

t.02/498854Uetex324426MEE-ltalia 


MEE 

Parliamone insieme. 



perché non codificano un suono. 

a. Il comando &X reimposta tut¬ 
ti i parametri sui valori di default ori¬ 
ginali, vale a dire Do centrale, semi¬ 
minima, legato, 160 movimenti/mi¬ 
nuto, senza emettere un suono. 

b. Il comando &X[parametri], 
nel quale i parametri possono essere 
di qualsiasi tipo indicato sopra con 
l’eccezione dei parametri di altezza, 
imposta i parametri specificati ma 
non emette alcun suono. 

c. &STOP silenzia tutti i comandi 
& susseguenti. Il programma si 
comporta praticamente come se i co¬ 
mandi & di Millenote non esistes¬ 
sero. 

d. &RESUME o &RESTORE 

causa la ripresa del suono dei coman¬ 
di &. 

3. Per ottenere altezze e durate 
non accessibili dai parametri norma¬ 
li si possono fare inoltre i seguenti 
POKE: 

a. POKE 6,n ove n è un’altezza 
nell’arco 1-255. Maggiore è il valore 
di n minore è l'altezza. Così l'altezza 
più piccola disponibile è data da PO¬ 
KE 6,255:&. State però attenti a 
non includere alcun parametro con il 
comando &, altrimenti il POKE 
risulterà annullato dall’altezza speci- 

b. POKE 249,i : POKE 250J 
dove la durata è uguale a i + j * 
256, nell’arco 1-65535. Più alto è il 
valore di i e j maggiore è la durata. 
Il valore di i, che è il byte di ordine 
basso di un valore di due byte, 
dev'essere un numero dell’arco 1- 
255, e j, il byte di ordine alto, 
dev'essere nell'arco 0-255. 

c. POKE 8,m dove m è il tempo 
nell’arco 1-255. Più alto è il valore 
di m più lento è il tempo. Così PO¬ 
KE 8,1 :& è il tempo più veloce pos¬ 
sibile. In effetti per molte altezze è 
talmente veloce che non sarà emesso 
alcun suono. 

Tanto per dare un’idea dell’arco del¬ 
le durate che è possibile ottenere con 
il POKE del tempo e della durata, di¬ 
ciamo che se si fa POKE 8,1 (il tem¬ 
po più veloce) e POKE 249,1 : PO¬ 
KE 259,0 (la durata più breve) il 
suono (seppur ci sarà) non sarà che 
un debole clic. All’altro estremo se 
si fa POKE 8,255 (il tempo più len¬ 
to) e POKE 249,255 : POKE 
250,255 (la durata massima) e poi si 
suona la nota (& senza alcun parame¬ 
tro) il suono durerà 6 minuti e 50 se¬ 
condi. 


4. Per amplificare il suono della 
musica o degli effetti sonori creati 
con Millenote si può convogliare il 
suono dalla porta d’uscita cassette 
(sul retro dell’Apple Ile) all'amplifi¬ 
catore dell'impianto stereo o aH’in- 
gresso audio del monitor (se il moni¬ 
tor è munito di altoparlante). Sarà 
necessario modificare il programma 
per accedere alla locazione di memo¬ 
ria cassette out (-16352 = $C020) an¬ 
ziché alla locazione dell’altoparlante 
(-16336 = $C030). Per far questo oc¬ 
corrono due POKE: POKE 38269, 
32 e POKE 38295,32. 

Se siete in possesso dell’Apple 
Ile, non occorre alcuna modifica al 
programma e potrete collegare l’in¬ 
gresso del vostro impianto sereo alla 
presa per l'auricolare sistemata vici¬ 
no al regolatore del volume. 

I programmi 
dimostrativi 

Nel listato 2 è visibile un pro¬ 
gramma in Applesoft che dimostra 
la potenza e la flessibilità di Mille¬ 
note. L’esempio musicale è il valzer 
di Musetta da La Bohème di Pucci¬ 
ni. Lo spartito del pezzo è visibile 
nella figura 1. Il brano è stato scel¬ 
to perché ha una grande varietà di no¬ 
te: legato, staccato, portato, abbelli¬ 
menti, note tenute, ritardando, terzi¬ 
ne, pause e via dicendo. 

Si può apprendere parecchio sul 
modo in cui introdurre la musica di 
Millenote nei programmi in Apple¬ 
soft confrontando lo spartito con il 
listato del programma. 

Il listato 3 presenta un program¬ 
ma in Applesoft dell’Inventio Vili di 
Bach, che mostra con quale facilità 
la musica veloce (in questo caso vi¬ 
vace) sia trattata. 

Il listato 4 è una dimostrazione 
di vari effetti sonori possibili con 
Millenote, che, a dire il vero, non è 
stato scritto come programma di ef¬ 
fetti sonori... Ma con un po’ di im¬ 
maginazione e di fortuna si può rea¬ 
lizzare qualche altro effetto interes¬ 
sante da usare nei giochi. 

Carica e 
funzionamento 

Millenote è un programma in As¬ 
sembler (visibile nel listato 1). 
Dopo aver introdotto tutto il codice 
macchina seguendo le istruzioni ri¬ 
portate nella rubrica Per chi comin¬ 
cia, battete BSAVE MILLENOTE, 


A$9200, L$ 400 per salvare su di¬ 
schetto il programma binario. 

Quando fate BRUN MILLENOTE 
accadono tre cose: 

1. Il vettore & a $3F5 (decimale 
1013) è impostato in modo che l’Ap¬ 
plesoft salti alla routine principale 
(MAIN) quando si incontra un &. 

2. HIMEM è impostata sotto la 
routine Millenote per proteggerla dal¬ 
le variabili stringa dell’Applesoft, 
che normalmente occupano quella re¬ 
gione della memoria. 

3. Vengono impostati i valori di 
default e i vari flag sono azzerati. 

La funzione più importante della 
routine principale MAIN è quella di 
richiamare le varie subroutine per 
predisporre i valori della nota (altez¬ 
za, durata e così via) e di richiamare 
poi la routine del suono stessa. 

La prima e principale subroutine 
chiamata da MAIN è PARMSORT, 
che ordina i parametri di input. Par- 
msort e le subroutine che essa chia¬ 
ma usano due importanti routine del¬ 
la ROM Applesoft, CHRGET e 
CHRGOT. 

Entrambe queste routine usano il 
vettore Applesoft TXTPTR, in loca¬ 
zione a $B8 e $B9 (decimali 184 e 
185). TXTPTR punta il carattere o i- 
struzione seguente del programma in 
Applesoft. Così quando si incontra 
un & e il programma salta a Mille¬ 
note si ha che TXTPTR sta puntan¬ 
do il carattere che segue l’&. 

La routine CHRGET, in locazione 
a $00B1 (decimale 177), fa tre cose: 

1. Incrementa TXTPTR. 

2. Carica nell'accumulatore il carat¬ 
tere al quale TXTPTR sta puntando. 

3. Imposta il flag Zero del registro 
di stato del processore se TXTPTR 
sta puntando la fine di una linea, e 
pulisce il flag di Carry se l’accumula¬ 
tore conserva un numero ASCII (0- 
9). 

La routine CHRGOT, in locazio¬ 
ne a $00B7 (decimale 183), svolge 
la stessa funzione di CHRGET ma 
non incrementa TXTPTR; in altre 
parole CHRGOT carica nell'accumu¬ 
latore il carattere che TXTPTR sta 
già puntando. 

Le subroutine di Millenote utiliz¬ 
zano CHRGET e CHRGOT per rice¬ 
vere ciascun parametro, un parame¬ 
tro alla volta, e poi modificano op¬ 
portunamente le variabili (altezza, 
durata, ottava e via dicendo) o impo¬ 
stano i vari flag (di staccato, di pau¬ 
sa e così via). 

Un'altra routine della ROM Apple- 
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soft utilizzata è GETBYTC, in loca¬ 
zione a $E6F5 (decimale 59125). 
Sua funzione generale è quella di va¬ 
lutare l’espressione Applesoft punta¬ 
ta da TXTPTR. GETBYTC è usata 
in PARMSORT dopo che si è incon¬ 
trata una T, per valutare l’espressio¬ 
ne che sta per il tempo. 

Il cuore di Millenote è la subrouti¬ 
ne Note, che suona la nota codificata 
nella lista del parametro &. Note 
dapprima moltiplica la variabile di 
durata (DURVAR) per 16 allo scopo 
di far posto alle note più lunghe, e 
poi moltiplica quel valore per il tem¬ 
po. 

Il risultato ultimo è che DUR¬ 
VAR è un numero di 24 bit, in gra¬ 
do di eguagliare qualsiasi valore com¬ 
preso fra 0 e 16.777.215. E' questa 
la ragione dell’ampia gamma di dura¬ 
te possibili. Il loop sonoro fa sem¬ 
pre i passaggi per DURVAR, sia o 
no commutato l’altoparlante. E' la 
variabile di altezza PITCH a dire 
quanto spesso l'altoparlante debba es¬ 
sere commutato durante ogni passag¬ 
gio, determinando così la frequenza 
(altezza) del suono. Così altezza e du¬ 
rata sono tenute indipendenti, e vie¬ 
ne perciò notevolmente semplificata 
la stima delle variabili occorrenti 
per la nota desiderata. 

I limiti 

dei programma 

Nonostante le altezze dei suoni sia¬ 
no per quanto possibile conformi al- 
l'algoritmo della routine del suono 
ci sono nel programma alcuni limiti 
imposti dalla variabile di frequenza a 
8 bit. Alcune delle altezze daranno fa¬ 
stidio al musicista dal fine orecchio. 
Ma per il resto la musica codificata 
come parte di un programma in Ap¬ 
plesoft Basic avrà un bel suono. 

Inoltre, la variabile del tempo è 
molto precisa, ma il programma in 
Applesoft può influire sul tempo in¬ 
tercorrente fra le note. Ovviamente 
se si mettono varie linee di codice 
Basic o istruzioni REM fra le chia¬ 
mate degli & ci sarà un intervallo di 
tempo fra le note. Per questa stessa 
ragione sedici differenti note di un se¬ 
dicesimo (semicrome) non avranno e- 
sattamente la stessa durata di una no¬ 
ta intera (semibreve), a causa del 
tempo di overhead del Basic. Tutta¬ 
via la differenza sarà molto lieve, e 
il novantotto per cento di noi non la 
noterà affatto. 

Esiste ancora un inconveniente: 


supponiamo che si voglia far suona¬ 
re a Millenote una nota di un trenta¬ 
duesimo (biscroma) all'altezza La. 
Battiamo il comando &AT. Ma ab¬ 
biamo inavvertitamente scritto AT, 
che è una parola riservata dell'Apple¬ 
soft! Dato che le parole riservate so¬ 
no simboleggiate con valori di un 
byte, il programma non interpreta 
nel modo giusto i risultati. Ci sono 
altre due parole riservate dell'Apple¬ 
soft che costituiscono difficoltà po¬ 
tenziali, GET e DEL. Si utilizzereb¬ 
be il comando &GET160 per suona¬ 
re un Sol di un ottavo (croma) a un 
tempo di 160 movimenti al minuto, 
e il comando &DEL per suonare una 
croma Re in legato, ma non si otter¬ 
rebbe il risultato voluto. Così pure 
il comando &GR non suonerà la no¬ 
ta Sol seguita da una pausa. 

Questi inconvenienti possono esse¬ 
re eliminati nel modo seguente: inve¬ 
ce del comando &AT, usate il co¬ 
mando &XT:&A. Avrete lo stesso 
risultato, senza adoperare una parola 
riservata. Invece di &GET160 usate 
&XET160:&G, e invece di &DEL 
&XEL:&D. 

Esistono diverse caratteristiche mu¬ 
sicali che è difficile codificare quan¬ 
do si adopera Millenote. Per esem¬ 
pio il portamento, il trillo, il mor¬ 
dente, il gruppetto, le note con dop¬ 
pio punto e via dicendo sono tutte 
cose difficili, ma non impossibili, 
da generare. 

Due serie limitazioni sono invece 
la mancanza di elementi dinamici 
musicali come il piano, il forte, il 
crescendo (graduale aumento di inten¬ 
sità) e il diminuendo (graduale dimi¬ 
nuzione di intensità), e la mancanza 
di voci multiple (si ottiene solo un 
suono alla volta). Sono reperibili in 
commercio programmi che hanno 
qualcuna di queste capacità, ma così 
si perde la facilità d'uso, che è il pun¬ 
to forte di Millenote. 

Chi fosse interessato ad apportare 
qualche modifica al programma, 
troverà sul dischetto del Disk 
Service il disassemblato del listato 
1. Le sue dimensioni ne hanno 
impedito invece la pubblicazione in 
queste pagine. 


Questo programma è disponibile 
su dischetto. L’elenco, i prezzi 
e le modalità d’ordine di questo 
e degli altri dischetti disponibili 
sono riportati nella rubrica 
Disk Service. 

^_ J 


®ByNibble e Applicando 


Dai vostri file di testo 
otteniamo velocemente la 
fotocomposizione 

Anche da Macintosh® in 
“Modo Grafico” è 
possibile miscelare il 
testo con figure, grafici, 
istogrammi... ottenendo 
un risultato di alta qualità 
grazie alla nuova 
fotocompositrice con 
risoluzione di ben 
2540 linee/pollice 

Altrettanto rapidamente 
provvediamo alla stampa 
dei vostri manuali, libri, 
cataloghi, listini, eco. 



viappìcinì 

Tecnologie d’avanguardia 
per stampati di qualità e grandi tirature 


Bruno Viappiani spa 

Milano, Viale Argonne 28 
tei. 02/73.84.341 
telex 325421 VI APPI-I 
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Applicando ha un nuove 


annuale con disco 
programmi per Macintosh 
prevede 10 numeri di Applicando, 
ognuno corredato di un dischetto 
da 3 pollici e 
1/2 su cui sono 

registrati tutti ì programmi per 
Macintosh pubblicati sulla rivista. 

Inoltre sono compresi nel prezzo 
dell'abbonamento l'ultima 
edizione delle Pagine 
del software e 
dell'hardware 
per Apple e un 
portadischetti. 


Abbonamento tradizionale con dono? 
Abbonamento biennale con supersconto? 

Oppure la nuovissima formula 
rivista con dischetto, per non avere più 
problemi di digitazione? 
Per tutti, comunque, tanti 
programmi, notizie, consigli e... 















presente... 


L'abbonamento annuale con disco 
programmi per Apple II 
prevede 10 nùmeri di Applicando, 
ognuno corredato con un dischetto 
da 5 pollici e 1/4 su cui sono 
registrati tutti i programmi per Apple II 
pubblicati sulla rivista. 

Inoltre sono compresi nel prezzo 
dell'abbonamento l'ultima edizione 
delle Pagine del software e dell'hardware 

per Apple e un 
portadischetti. 


disKf 


Compilare e spedire 
Editronica srl, Corso Monforte 39,20122 Milano. 


Il programma mostrato nel listato 
indica l'uso di questa tecnica. 

Prima genera un finto menu, poi 
ncia l’ON BREAK GOSUB e 
REAK ON per intercettare il co¬ 
lando di arresto. Un loop infinito 
tende il break. Uno dei motivi per 
luali questa routine risulta molto u- 
!e nei lavori di programmazione è 
he tutto quanto c'è sullo schermo 
iene mantenuto invariato fino allo 


finito di esaminare il display basta 
un tocco di mouse per riavere i me¬ 
nu originali e il listato Basic, pron¬ 
to per le correzioni. Un veloce pro¬ 
memoria: la finestra del listato può 
essere espansa fino alle dimensioni 
massime dello schermo con un dop¬ 
pio click sulla barra del titolo. E' 
spiegato nel manuale, ma senza mol¬ 
ta evidenza, e sono in pochi a sfrutta¬ 
re questa comoda possibilità. 


Listato 1. Menu reset 


'Menu Reset 

'MS Basic 2.0 o 2.1 - Binario e Decimale 
CLS 

'Crea i menu 

MENU 1,0,1,"Prova Menu" 

MENU 1,1,1,"Elemento 1" 

MENU 1,2,1,"Elemento 2" 

MENU 1,3,1,"Elemento 3" 

MENU 1,4,1,"Elemento 4" 

MENU 2,0,0,"" 

MENU 3,0,0,"" 

MENU 4,0,0,"" 

MENU 5,0,0,"" 

LOCATE 7,17 

PRINT "Usa <Control> <Shift> punto per uscire." 

ON BREAK GOSUB uscita 
BREAK ON 

ripeti : 

GOTO ripeti 

uscita : 

BREAK OFF 
BEEP 

WINDOW 4,"", (360,21)-(508, 44),3 
MOVETO 10,15 

PRINT "Programma arrestato"; 

pippo=MOUSE(0) 'aggiorna la posizione del mouse 

x=MOUSE(l) 'legge la posizione X del mouse 

WHILE x=MOUSE(1)* 'attende il movimento del mouse 
pippo=MOUSE(0) 

WEND 

WINDOW CLOSE 4 
MENU RESET 
LIST 
END 
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...ma anche un passato. 


f Per ordinare gii arretrati compila il N i 
tagllaAMo^ellapaglna^precedente_ J 



Lire 7.000 • Sa- 
e le malattie e re- 
he • Come far parla- 
po personalizzato 
del cielo natale • 
non perdere o- 
one-liner-Ba- 
collegamento diretto 
razione testo e l'am- 
ontrollare il valore di 
duare gli errori • Ecco 
ull'uso della grafica 
• Speciale Appli- 
n equilibrio • Macin- 
del mese. 


5 - Lire 7.000 • 

arredare la vo- 
ne direttamente sul 
a corsa d'auto stile 
n modo per accede¬ 
tene di stampa by 
mma ‘Controllo di- 
one-liner-^er Ap- 
foglio elettronico in¬ 
ala management « 


3 - settembre/ottobre 1983 - Lire 
7.000 • Un programma di Data Base ac¬ 
cessibile a tutti • Ecco Logo in italiano • U- 
na scheda e una telecamera e il tuo Apple 
vede • Etichette spiritose o bizzarre • Pic¬ 
coli editori, club e associazioni possono rag¬ 
giungere soci e abbonati facilmente • Equo 
canone con VisiCalc • Una routine e la E- 
pson M 80 stampa i grafici • Seconda pun¬ 
tata del corso di Basic • Con un uso accor¬ 
to del WPL ecco pronto un documento di 
più pagine, personalizzato, con decine di o- 
pzioni diverse • Dadi e punti (gioco). 

4 - novembre/dicembre 1983 - Lire 
7.000 • Tre schede, una tastiera e un po' 
di software: il computer diventa un'intera 
orchestra • Pianoforte, organo e violino in 
Pascal • Per imparare a leggere più veloce¬ 
mente (e fare esercizio di inglese) • Elogio 
del VisiDex • Grazie Lisa: cos'è e a chi può 
servire il rivoluzionario personal Apple • 

» ùndici • Per chi ha dischetti del Si- 
ascal, ecco una rassegna delle 
possibilità offerte e dei comandi a disposi¬ 
zione • Dedalus • Terza puntata del corso 
Basic • Guida ragionata dei software in 
commercio per la gestione condominiale • 
Una numeric keypad fatta solo di so¬ 
ftware. 

5 - gennaio/febbraio 1984 - Lire 
7.000 • La tecnologia del mouse applica¬ 
ta all'Apple II • In memoria i vostri impegni 
di un anno intero • Contabilità semplificata 
• Battaglia di cannoni • Investor, uno dei mi- 
pliori programmi che fornisce in tempo rea- 


dàT'pòuicfe 
1/2 su cui sono 

registrati tutti 1 programmi per 
Macintosh pubblicati sulla rivista. 
Inoltre sono compresi nel prezzo 
dell'abbonamento l’ultima 
edizione delle Pagine 
del software e 
dell'hardware 
per Apple e un 
portadischetti. 


più esperti • Rotazione e traslazione delle fi¬ 
gure piane e somma delle forze parallele • 
Gerarchia, sequenza e ombra per visualiz¬ 
zare il parentado: quinto appuntamento 
con il Pascal • Come ottenere grandi risul¬ 
tati nella grafica ad alta risoluzione utiliz¬ 
zando un Apple II e un TV color • Una sem¬ 
plice routine per disporre sempre della data 
memorinata • Macintosh: Guida al- 
l’Ms-Basic. 

10 - novembre 1984 - Lire 7.000 • 

Una guida per entrare con l'Apple nelle reti 
nazionale e internazionale • L'Apple Ile sti¬ 
la una graduatoria delle autovetture d'epo¬ 
ca • Come gestire tre attività professiona¬ 
li diverse con un Apple • Niente paura se i- 
nawertitamente battete New o Fp! • Dos: 
un programma per ritrovare sempre i dati 
che sembrano scomparsi • L'ottava punta¬ 
ta di Applesoft: come mantenere allineate 
le righe • Differenze tra Integer e Appleso¬ 
ft e language card • Parametri, procedure 
e funzioni nella sesta puntata del Pascal ■ 
Appliscuola: rette nel piano cartesiano, e- 
quazioni e calcolo del coefficiente di corre la- 
zione • Macintosh: Computerizzate il li¬ 
bro cassa con il Mac. 

11 - dicembre 1984 - Lire 7.000 • U- 

na banca dati per avere sotto controllo un 
articolo, il suo numero di pagina, la rivista 
su cui è stato pubblicato • Per recuperare 
un file cancellato accidentalmente • Tutti i 
trucchi per personalizzare l'Hello o per pro¬ 
teggere i listati da occhi indiscreti • L'Apple 
sulla scrivania: perché non lasciarvi un 


Mac • Magic e File Vision • Lt* parade 
dei mese. 

16 - maggio 1985 - Ure 7.000 • Un 

sistema di data base nutrizionale per per¬ 
sonalizzare una dieta bilanciata, a lunga o 
a breve scadenza • Corso AppleWorks: co¬ 
me farsi un'agenda telefonica • Pompieri: 
un gioco d'azione e abilità • Un programma 
capace di trasformare l'Apple II in un fede¬ 
le e preciso timer • Una tavola di disegno 
per emulare i più potenti programmi di 
CAD/CAM • Come scrivere un program¬ 
ma compiuto su una linea sola. Ecco i primi 
venti one-liner • Una utility che facilita il la¬ 
voro di correzione di un listato, rendendone 
più comoda la lettura • Macintosh: Jazz 
• Hit parade del mese. 

17 - giugno 1985 - Lire 7.000 • Le 

principali nozioni, un dizionario nautico e 
due simulatori di regate per entrare nel 
mondo della vela • Un programma che tra¬ 
sforma l'Apple in una sofisticata calcolatri¬ 
ce RPN • Una piantina per pianificare qua¬ 
lunque itinerario stradale americano tra 
ben 171 città diverse • Un uragano si sca¬ 
tena sulla città: riuscirete a trovare rifu¬ 
gio? • In AppleWorks la gestione di un ne¬ 
gozio • Un programma per eseguire analisi 
ai carattere statistico con la possibilità di 
chiedere previsioni • Sparate a vista, ma 
attenti a non essere colpiti! • Continua la 
serie degli One-liner, i programmi su una li¬ 
nea sola • Macintosh: Smooth Talker • 
Hit parade del mese. 

1985 - Lire 

r Apple di Trivia, il 
ezzo mondo • Con- 
rks con le funzioni 
ìa utility per perso- 
• Un program- 
ento dei propri biori- 
r sapere i consumi 
in calcoli e fogliet- 
l’andamento di un 
Poche linee di pro¬ 
ritte perfettamente 
mpante ■ ProDOS: 


Lire 7.000 

quando sono 
Digger e Clau- 
er marziani soprav- 
ifisti il secondo-Tut- 
gamento in rete per 
*ti dello studio lega- 
avvocati scritto da 
in memoria un pro¬ 
di sopra di un codi- 
mouse:accop- 
cassa-ma- 
ne-liner ■ Inizia una 
ella grafica ad altis- 
acihtosh: Microso- 
che vale davvero 
iornatissimo catalo- 


Prima puntata di un corso di programma¬ 
zione avanzata in Basic • Terzo articolo 
sulla doppia HhRes: le figure a blocchi • 
Macintosh: hard disk a confronto • Con¬ 
tabilità generale o forfettaria: 3 pacchetti 
a confronto • Hit parade del mese. 

22 - dicembre 1985/gennaio 1986 
- Lire 7.000 • Una rassegna completa 
dei tipi di stampante, con Te caratteristi¬ 
che tecniche e le prestazioni, e dei relativi 
accessori e una tabella comparativa di 
trenta macchine provate direttamente • 
Memodesk: non la solita agenda elettroni¬ 
ca ma un calendario intelligente da scriva¬ 
nia • BlackJack • Due programmi per gli 
studi dentistici • Continua il corso ai pro¬ 
grammazione avanzata in Basic • Effetti 
speciali: Spinnerconsente lo scorrimento o- 
rizzontale di una stringa • Dieci one-liner • 
Calendario perpetuo dal 1753 in poi per Ap¬ 
ple e Mac ■ Quarta puntata di grafica: ani¬ 
mazione • Appliscuola: il numero di Avoga- 
dro • Macintosh: stampare un catalogo 
professionale di alta qualità a costi Conte¬ 
nuti-Hit parade con tantissimi nuovi pro¬ 
grammi. 

23 ■ febbraio 1986 - Lire 7.000 • 

Speciale editoria: Macintosh, Apple II, La¬ 
serWriter e tutto il software necessario per 
creare un centro stampa autonomo • Co¬ 
me programmare il mouse dell'Apple II • 
Guerre stellari • Harmony ■ Come far scor¬ 
rere 18 immagini sul video ■ Grafica: scorri¬ 
mento orizzontale di una stringa sul video • 
Corso avanzato di Basic (3) • Sette one-li¬ 
ner ■ Scuola: resoconto su Pisa • Funzioni 
e grafici tridimensionali • La tavola degli e- 
lementi chimici • Macintosh: la compatibi¬ 
lità Mac-IBM • Tutto sul CFS • L'hit-para- 
de del mese. 

24 ■ marzo 1986 - Lire 7.000 • Spe¬ 
ciale architetti e ingegneri: tanto software 
per risolvere al computer i problemi di com¬ 
puto e disegno • Executive Cardfile: un ar¬ 
chivio intelligente, organizzato in più sche¬ 
dari • Screen dump a 80 colonne in ogni mo¬ 
mento della programmazione • Apple Mae¬ 
stro insegna a comporre musica anche a- 
gli stonati, e senza fatica • A che ora na¬ 
scono i vostri file? Senza acquistare sche¬ 
de software, chiedetelo al programma Ora 
e data • Archiviare con il mouse, sull’Apple 
II: con Ped-one • Grafica: lo scorrimento 
verticale • Un'agenda elettronica che com¬ 
pone anche il numero • Appliscuola: disegni 
prospettici con rimozione delle parti nasco¬ 
ste e un trivia, per tutte le materie, da im¬ 
postarsi a piacere • Macintosh: guida al¬ 
l'acquisto del database giusto • Macnews 

• Tutti i linguaggi per la programmazione • 
Grafici: un programma che sa crearli tutti 

25 ■ aprile 1986 - Lire 7.000 • Spe¬ 
ciale comunicazioni: modem e banche dati 

• Chart Manager: programma professiona¬ 
le per la gestione dei dati e la restituzione 
grafica in curve, barre e torte • Apple Che- 
cker: controlla gli errori di copiatura dei 
listati- Grafica: (a logica di programmazio¬ 
ne in doppia alta risoluzione • Buffer di 
stampa: ricaviamolo dall'Apple • Oneliners 

• Appliscuola: variazioni di velocità in funzio¬ 
ne di concentrazione dei reagenti e tempe¬ 
ratura • Macintosh: ilBernoulli Box, che 
archivia su cartuccia • Macnews • Una da¬ 
tabase veloce, versatile e personalizzato 
da una potente struttura a schede. 

26 ■ maggio 1986 ■ Lire 7.000 Spe¬ 
ciale: gli spreadsheet più potenti per Apple 
Il e Mac • Meandro: un adventure tutto i- 
taliano • Grafica: altri segreti sull'animazio¬ 
ne in doppia alta risoluzione • Appliscuola: 
per risolvere sistemi di equazioni lineari • 
Ants! Il terrore, con le sembianze di 
gigantesche formiche, viene dal giardino • 
Oneliners • Quale sarà il futuro di Apple II? 
Un'intervista con John Sculley e molte novi¬ 
tà da Cupertino • Macintosh: mettere in 
rete Sunol, il disk server piccolo e potente • 
Mac+//: un programma che simula su 
Mac il video Applesoft? Certo, per utilizza¬ 
re ancora tutta la biblioteca programmi 
del II • Windowd Toolbox, perché ogni pro¬ 
grammatore vorrebbe poter modificare le 
finestre del toolbox • Bioritmi • Macnews. 








Se, correggendo un programma, date il comando di break (<Command>.), 
vi ritrovate nella finestra di uscita i vecchi menu. E allora attivate la finestra 
dei comandi diretti, resettate il menu e date il <Command> L... 
Invece c'è un modo molto più rapido. 


Se il menu si 
resetta da sé 


L'ambiente di lavoro dell'MS Ba¬ 
sic, con i suoi comandi TRACE, il 
potente editor, le finestre separate 
per l'output, per il listato e per i co¬ 
mandi diretti, è uno tra i più attraen¬ 
ti e sofisticati in assoluto. Nono¬ 
stante ciò correggere un programma 
che utilizza menu personali può crea¬ 
re una serie di problemi che mai si 
verificano con i classici interpreti 
Basic. Per esempio quando si dà il 
comando di break (<Command> . ) 
può capitare di trovarsi con la fine¬ 
stra di uscita adomata dei menu del- 
l'appena defunto programma. In que¬ 
sto caso per ottenere la finestra del li¬ 
stato dovete attivare la finestra dei 
comandi diretti, battere MENU RE¬ 
SET, richiamare il listato dal menu 
corrispondente o battere cComman- 
d> L. 

Abbiamo attraversato questa se¬ 
quenza di operazioni molte volte. 

Una miniroutine 
per fare prima 

Per evitare di doverlo fare ancora 
ecco la subroutine Uscita, generata 
dal listato 1. Per attivarla si usano 
le funzioni ON BREAK GOSUB e 
BREAK ON, per intercettare il co¬ 
mando di break. Quando quest'ulti¬ 
mo viene dato ecco cosa accade: 

1) Si esegue BREAK OFF nel caso 
si voglia dare un secondo (e vero) 
break, se necessario. 

2) Si simula uno STOP, con un 
BEEP, e una nuova finestra (numero 
4) è aperta nell'angolo in alto a de¬ 
stra dello schermo per annunciare 
che lo stop è avvenuto. 

3) Un loop determina se il mouse è 
stato mosso. Finché il mouse è im¬ 
mobile lo schermo non subisce alte¬ 
razioni. Questo è esattamente identi¬ 


co a quello che si ottiene con il co¬ 
mando STOP. 

4) Si muove il mouse: allora viene 
rimossa la finestra 4, si resettano i 
menu, si attiva la finestra del li¬ 
stato. 

Il programma mostrato nel listato 
1 indica l'uso di questa tecnica. 

Prima genera un finto menu, poi 
lancia l’ON BREAK GOSUB e 
BREAK ON per intercettare il co¬ 
mando di arresto. Un loop infinito 
attende il break. Uno dei motivi per 
i quali questa routine risulta molto u- 
tile nei lavori di programmazione è 
che tutto quanto c'è sullo schermo 
viene mantenuto invariato fino allo 


Listato 1. Menu reset 
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spostamento del mouse. Quando si è 
finito di esaminare il display basta 
un tocco di mouse per riavere i me¬ 
nu originali e il listato Basic, pron¬ 
to per le correzioni. Un veloce pro¬ 
memoria: la finestra del listato può 
essere espansa fino alle dimensioni 
massime dello schermo con un dop¬ 
pio click sulla barra del titolo. E' 
spiegato nel manuale, ma senza mol¬ 
ta evidenza, e sono in pochi a sfrutta¬ 
re questa comoda possibilità. 


'Menu Reset 

'MS Basic 2.0 o 2.1 


Binario e Decimale 


CLS 

'Crea i menu 

MENU 1,0,1,"Prova Menu" 

MENU 1,1,1,"Elemento 1" 

MENU 1,2,1,"Elemento 2" 

MENU 1,3,1,"Elemento 3" 

MENU 1,4,1,"Elemento 4" 

MENU 2,0,0,"" 

MENU 3,0,0,"" 

MENU 4,0,0,"" 

MENU 5,0,0,"" 

LOCATE 7,17 

PRINT "Usa <Control> <Shift> punto per uscire." 
ON BREAK GOSUB uscita 
BREAK ON 

ripeti : 

GOTO ripeti 

uscita : 

BREAK OFF 
BEEP 

WINDOW 4,"", (360,21)-(508, 44),3 
MOVETO 10,15 

PRINT "Programma arrestato"; 


pippo=MOUSE(0) 
x=MOUSE(1) 

WHILE x=MOUSE(1) 
pippo=MOUSE(0) 
WEND 

WINDOW CLOSE 4 
MENU RESET 
LIST 
END 


'aggiorna la posizione del mouse 
'legge la posizione X del mouse 
'attende il movimento del mouse 


©ByNibblee 


33 






































AST 


msma 


Conoscere le stelle significa dedicare intere notti all'affascinante fatica 
del telescopio. Per conoscere poi il cielo da un solo punto di vista. 

Con questo programma potete osservarlo da qualsiasi punto dell'emisfero 
nord e potete additare qualsiasi stella: il programma ve ne dirà il nome. 


. A che punto 
è la notte 



Per un astronomo dilettante il tem¬ 
po passato a scrutare in un telesco¬ 
pio non finisce mai: sono necessarie 
innumerevoli notti, d’estate e d'in¬ 
verno, per imparare a percorrere le 
vie del cielo. I cartelli stradali del cie¬ 
lo notturno sono le costellazioni. 
Non ci vuole molto tempo per impa¬ 
rare che le due stelle^raffiguranti le 
ruote posteriori del Gran Carro pun¬ 
tano verso la stella poltre, e che le 
tre stelle del timone puntano verso 
Arturo, una stella molto luminosa, 
di prima magnitudine. 

Il passo successivo consiste nel-* 
rapprendere i nomi delle altre stelle 


• • 


• 

di grande visibilità e la loro posi- 
• zione. Nella maggior parte delle 
grandi città è possibile recarsi a un 
planetario per vedere le stelle proiet¬ 
tate sul soffitto di una gigantesca cu¬ 
pola. I meccanismi di un planetario 
sono'oltremodo complicati e costo¬ 
si, e riescono a spostare il punto di 
osservazione in qualsiasi luogo della 
superficie terrestre, andare avanti e 
indietro nel tempo e individuare le 
varie stelle. Con Planetario, un pro¬ 
gramma didattico per l'astronomo 
principiante, si può compiere la 
maggior parte di queste funzioni uti¬ 
lizzando il display dell’Apple. 





• • 

Come si usa 
il programma * 

Per avviare il programma battete 
RUN PLANETARIO. 

Dopo il display iniziale il‘pro¬ 
gramma carica la sua tavola delle 
stelle e vi chiede se volete ripristina¬ 
re un vecchio impianto. • 

Se rispondete S, chiede un nome 
di file e voi potete caricare un set di 
#dati comprendente ora e coordinate di 
una precedente esecuzione. 

Questo vi mette in grado di realiz¬ 
zare a poco a poco un atlante stella¬ 
re. Se rispondete N il computer 




mmmm 
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vi chiede le informazioni occorrenti 
per creare una carta stellare per la lo¬ 
calità e la data specifiche. 

Facciamo una prova a titolo d’e¬ 
sempio. Anzitutto dovete indicare la 
longitudine e la latitudine, utiliz¬ 
zando la tavola pubblicata qui sotto. 

Il programma chiede: 


LONGITUDINE (GRADI = -180 A 
180): 


Introducete la longitudine in gradi 
e premete <RETURN>. Poi introdu¬ 
cete allo stesso modo il numero dei 
primi. Alla richiesta: 


LATITUDINE (0 A 90): 


introducete la vostra latitudine in gra¬ 
di e premete <RETURN>. Il pro¬ 
gramma funzionerà solo per l'emisfe¬ 
ro boreale, e quindi non sono am¬ 
messi valori negativi. La domanda 
successiva è: 


DATA (MESE = 1 A 12): 


Introducete il mese e premete <RE- 
TURN>, quindi il giorno e premete 
<RETURN>. Poi è la volta dell’ora 
solare (se si è in epoca di ora legale 
dovete prima fare la conversione in 
ora solare): 


ORA (HR = 0 A 23): 


Usate il sistema orario di 24 ore, 
in cui la mezzanotte è indicata con 0 
ore e si aggiunge 12 a tutte le ore 
pomeridiane. Dopo aver introdotto 
l’ora introducete i minuti. Infine indi¬ 
cate l’orizzonte che volete osservare: 

ORIZZONTE (N = NORD, S = 
SUD): 


Il programma può visualizzare le 
stelle o sopra l’orizzonte settentriona¬ 
le o sopra quello meridionale. Intro¬ 
ducete la vostra scelta premendo ri¬ 
spettivamente N o S. 

La volta celeste 
sullo schermo 

Quando avete immesso tutte que¬ 
ste informazioni lo schermo viene 
ripulito e viene disegnata un’immagi¬ 
ne in alta risoluzione del cielo corri¬ 
spondente alla data, all’ora e al luo¬ 
go che avete scelto (figure 2 e 3). 
Il cielo notturno è circondato da una 
linea di delimitazione. Alla sommità 
dello schermo c'è lo zenit, che è il 
punto del cielo situato sulla vertica¬ 
le di osservazione. La base dello 
schermo è l’orizzonte. I lati destro e 
sinistro dello schermo sono l’est e 
l'ovest, a seconda dell'orizzonte da 
voi scelto. 

Tutte le stelle fino alla magnitudi¬ 
ne tre sono viste nelle loro vere posi¬ 
zioni relative. In aggiunta vengono 
mostrate alcune stelle di magnitudi¬ 
ne maggiore per rendere più ricono¬ 
scibili certe costellazioni. Sono uti¬ 
lizzati quattro diversi simboli (un 
rombo, un grande segno di più, un 
piccolo segno di più e un punto) per 
rappresentare diverse fasce di magni¬ 
tudine. 

Alla base dello schermo Hi-Res si 
trovano tre righe che vi dicono la da¬ 
ta, la posizione (longitudine e latitu¬ 
dine) e l'ora siderale. La riga più in 
basso vi dice quali siano i comandi 
validi. L'orologio dell’ora siderale 
parte e cammina fintanto che non in¬ 
troducete un parametro nuovo. Ogni 
mezz'ora lo schermo viene pulito e 
le posizioni delle stelle sono aggior¬ 
nate, di modo che esse danno l'im¬ 


pressione di spostarsi attraverso il 
cielo come fanno nel cielo reale; po¬ 
tete disabilitare la pulitura dello 
schermo selezionando il modo di vi¬ 
sualizzazione continua nel menù 
principale. 

Se avete selezionato l’orizzonte set¬ 
tentrionale vedrete che le stelle non 
si spostano seguendo un cammino 
da est a ovest: sembra invece che gi¬ 
rino in cerchio attorno a un punto 
nel mezzo dello schermo. Questo 
punto è il polo celeste nord, che è 
molto vicino alla stella polare. 

I tre comandi disponibili sono Tro¬ 
va, Nome ed <ESC>ape. Trova e 
Nome vengono descritti più avanti, 
<ESC> vi porta al menù principale. 
Se premete accidentalmente <ESC> 
potete ripristinare il display delle 
stelle, senza dover perdere tempo per 
un ricalcolo, premendo nuovamente 
<ESC> prima di fare una qualsiasi 
scelta sul menù. 

Come cambiare 
i parametri 

Arriviamo così all’autentica forza 
del Planetario. Se volete vedere 
quale aspetto ha il cielo stellato 
visto da un’altra località, oppure in 
un’altra ora, non c'è alcun problema. 
Per cambiare latitudine e longitudine 
vi basta premere <ESC> e seleziona¬ 
re la voce 2 del menù (figura 1). 

Anche se le due località sono nel¬ 
lo stesso fuso orario, possono 
trovarsi a longitudini differenti e le 
loro ore siderali possono di conse¬ 
guenza essere diverse anche se le lo¬ 
ro ore medie sono identiche. Pertan¬ 
to il programma vi chiede di reintro¬ 
durre l’ora ogni volta che cambiate 
la longitudine. 

Dato che il display dell’ora è in o- 


| Prov. 

Long. 

Lat. 

Prov. 

Long. 

Lat. 

Prov. 

Long. 

Lai 

Prov. 

Long. 

Lat. 

Prov. 

Long. 

Lat. 

Prov. 

Long. 

Lat 

AG 

-13.3 

37 

BZ 

-11.15 

46 

FO 

-12 

44 

MS 

-10 

44 

PZ 

-15.45 

40 

TE 

-13.3 

42 

AL 

- 8.3 

44 

CA 

-9 

39 

FR 

-13.15 

41 

MT 

-16.3 

40 

RA 

-12 

44 

TN 

-11 

46 

AN 

-13.3 

43 

CB 

-14.3 

41 

GE 

-8.45 

44 

NA 

-14.15 

40 

RC 

-15.3 

38 

TO 

-7.3 

45 

AO 

-7.15 

45 

CE 

-14.15 

41 

GO 

-13.3 

46 

NO 

-8.3 

45 

RE 

-10.3 

44 

TP 

-12.3 

38 

AP 

-13.3 

42 

CH 

-14 

42 

GR 

-11 

42 

NU 

-9.15 

40 

RG 

-14.55 

37 

TR 

-12.3 

42 

AQ 

-13.15 

42 

CL 

-14 

37 

IM 

-8 

44 

PA 

-13.15 

38 

RI 

-12.45. 

42 

TS 

-13.45 

45 

AR 

-11.45 

43 

CN 

-7.3 

44 

IS 

-14.15 

41 

PC 

-9.3 

45 

RO 

-11.45 

45 

TV 

-12.15 

45 

AT 

-8 

45 

CO 

-9 

45 

LE 

-18.15 

40 

PD 

-11.45 

45 

Roma 

-12.15 

42 

UD 

-13 

46 

AV 

-14.45 

41 

CR 

-10 

45 

LI 

-10.15 

43 

PE 

-14 

42 

SA 

-14.55 

40 

VA 

-8.45 

45 

BA 

-16.45 

41 

CS 

-16.15 

39 

LT 

-12.45 

41 

PG 

-12.15 

43 

SI 

-11.15 

43 

ve 

-8.15 

45 

BG 

-9.3 

45 

CT 

-15 

37 

LU 

-10.3 

43 

PI 

-10.15 

43 

SO 

-9.45 

46 

VE 

-12.15 

45 

BL 

-12 

46 

CZ 

-16.3 

39 

MC 

-13.15 

43 

PN 

-12.3 

46 

SP 

-9.45 

44 

VI 

-11.3 

45 

BN 

-14.45 

41 

EN 

-14.15 

37 

ME 

-15.3 

38 

PR 

-10.15 

44 

SR 

-15.15 

37 

VR 

-11 

45 

BO 

-11.15 

44 

FE 

-11.3 

44 

MI 

-9 

45 

PS 

-12.45 

44 

SS 

-8.3 

40 

VT 

-12 

45 

BR 

-17.45 

40 

FG 

-15.3 

41 

MN 

-10.45 

45 

PT 

-10.45 

44 

SV 

-8.15 

44 




BS 

-10 

45 

FI 

-11.15 

1 

43 

MO 

-10.45 

44 

PV 

-9 

45 

TA 

i 

-17.15 

i 

40 

_ 

_ 



35 




































ra siderale il menù principale visua¬ 
lizza anche l’ultima ora solare che a- 
vete immesso. Usate questo valore 
quando calcolate gli scarti d’ora. Per 
esempio il menù potrebbe indicare 
che l’ora siderale è 06:30, e che l’ulti¬ 
ma ora da voi introdotta è 22:15. In 
tal caso per avere il cielo come si 
presenterà un'ora più tardi dovete 
cambiare l'ora portandola a 23:15, 
non a 07:30. Le prime sei voci del 
menù principale si spiegano pratica- 
mente da sole. Occorre invece qual¬ 
che spiegazione per le opzioni salva¬ 
re e caricare (le voci 7 e 8). Questi 
comandi vi permettono di farvi un ar¬ 
chivio di istantanee del cielo. Per e- 
sempio potreste salvare varie imma¬ 
gini del cielo per sapere come si pre¬ 
senteranno le costellazioni a interval¬ 
li regolari durante l'anno. Notate che 
questa opzione non salva in realtà la 
videata, salva soltanto i parametri se¬ 
lezionati al presente. 

Le opzioni di salvataggio e carica¬ 
mento sono facili da usare. Vi sarà 
chiesto il nome del file. Se premete 
<RETURN> viene visualizzata la di¬ 
rectory del dischetto e viene ripetuta 
la richiesta NOME.FILE. 

L'identificazione 
delle stelle 

Adesso sapete come fare per predi¬ 
sporre l’ora e il luogo e per trasferir¬ 
vi in un'altra posizione. Ma come fa¬ 
re per identificare le stelle dalla posi¬ 
zione in cui siete? Quando l'interes¬ 
se per l'astronomia aumenta si prova 
molta soddisfazione se osservando il 
cielo si è in grado di individuare per 
nome le varie stelle. Planetario vi 
aiuta anche in questo. Supponiamo 
che vediate una stella sullo schermo 
e ne vogliate sapere il nome. E' suf¬ 
ficiente battere N. Il programma dise¬ 
gna un quadratino nel centro dello 
schermo. Mediante i tasti I, J, K e 
M (e nel II Plus <REPT>) spostate 
il quadratino in su, a sinistra, a de¬ 
stra e in giù fino a quando racchiude¬ 
rà la stella che volete identificare. 

Premete <RETURN>. Se il nome 
della stella è nella tavola delle stelle 
il computer la visualizzerà. Se nel 
quadratino si trova più di una stella 
sarà visualizzata la prima della lista 
delle stelle. Ma dovrebbe essere pos¬ 
sibile posizionare il quadrato in mo¬ 
do che racchiuda soltanto la stella 
che volete identificare. 

Adesso supponiamo che conoscia¬ 
te già il nome di una stella, ma vo¬ 


gliate sapere in che punto del cielo 
essa si trova. Basta battere F. Il pro¬ 
gramma vi chiederà il nome della 
stella. Introducete questo nome e pre¬ 
mete <RETURN>. Se la stella è nel¬ 
la tavola, un quadrato lampeggerà 
sullo schermo attorno alla stella per 
una decina di secondi. Se nel luogo 
in cui siete a quell'ora la stella non 
fosse visibile il programma ve lo di¬ 
rebbe. Per uscire da questo modo pre¬ 
mete <RETURN> senza introdurre 
il nome di alcuna stella. L'orologio 
siderale ripartirà. 

Un'osservazione sui nomi usati 
per indicare le stelle: la maggior par¬ 
te delle stelle più luminose ha anti¬ 
chi nomi arabi, greci o latini. In 
qualche caso viene usato più di un 
nome antico. In tempi più moderni 
sono stati adottati metodi più siste¬ 
matici per dare un nome alle stelle. 
Uno di questi sistemi usa lettere gre¬ 
che per rappresentare le stelle in ma¬ 
gnitudine ascendente (ossia alfa è la 
stella più luminosa) per ciascuna co¬ 
stellazione. In base a questo sistema 
Sirio è chiamata Alfa Canis Majo- 
ris. Un sistema più recente numera 
le stelle in ascensione retta crescente 
per una data costellazione. In questo 
programma i nomi delle stelle sono 
per la maggior parte quelli antichi. 

Come funziona e 
come farlo crescere 

Per esigenze di spazio non è possi¬ 
bile pubblicare i listati del program¬ 
ma Planetario, che Applicando offre 
però a un prezzo favorevolissimo 
(Planetario + Supershopper lire 35 
mila); per ordinarlo si utilizza il ta¬ 


HENU DATI 

~> 1. LONGITUDINE: -9 BRADI 0 PRIMI 

2. LATITUDINE: 43 BRADI 

3. DATA: 15/B 

4. ORA SIDERALE:22:24 (INPUT 0:00) 

5. ORIZZONTE: S 

6. TRACCIAMENTO:INDIVIDUALE 

7. SALVARE I DATI SUL DISCO 

8. CARICARE I DATI DAL DISCO 

9. FINE 

USA LE FRECCE 0 SCEGLI UN NUMERO:! 


<ESC> PER RIVEDERE LA MAPPA 

Figura 1. 

Il menù principale di Planetario 


gliando del Disk Service. 

Chi volesse apportare modifiche al 
programma, comunque, potrà farlo 
senza difficoltà listandolo diretta- 
mente dal dischetto. 

Per comprendere la teoria del fun¬ 
zionamento del programma, e 
potervi così intervenire, occorre ave¬ 
re familiarità con i concetti di ora si¬ 
derale, ascensione retta e declinazio¬ 
ne. L'ora siderale è il sistema di mi¬ 
surazione del tempo in relazione alle 
stelle. A causa della rotazione della 
terra un giorno siderale è di circa 
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Figura 2. Il cielo a mezzanotte di ferragosto, visto da Milano: orizzonte nord 
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quattro minuti più lungo di un gior¬ 
no solare, e quindi l’ora siderale è 
considerevolmente diversa anche dal¬ 
l'ora media di Greenwich. Se si im¬ 
maginano le stelle incollate all’inter¬ 
no di un’enorme sfera celeste, con 
un polo nord e un polo sud, l’ascen¬ 
sione retta (A.R.) è l’equivalente del¬ 
la longitudine e misura la posizione 
radiale della stella. 

La declinazione (DEC) è l’equiva¬ 
lente della latitudine, e misura la po¬ 
sizione della stella dall'equatore cele¬ 
ste verso uno dei poli celesti. La po¬ 
sizione di una stella è solitamente e- 
spressa in ore e minuti di A.R. e gra¬ 
di di declinazione. 

Il programma produce un’immagi¬ 
ne grafica in alta risoluzione del cie¬ 
lo notturno che mostra le stelle mol¬ 
to vicine alle loro autentiche posizio¬ 
ni relative. Naturalmente ogni tenta¬ 
tivo di proiettare una superficie sferi¬ 
ca, qual è il cielo, su un piano avrà 
come conseguenza una certa distor¬ 
sione. La distorsione viene ridotta al 
minimo restringendo la visuale all'o¬ 
rizzonte settentrionale o a quello au¬ 
strale e calcolando le posizioni della 
stella per ciascun insieme di parame¬ 
tri. Per inciso, le principali manche¬ 
volezze degli altri programmi del ge¬ 
nere dipendono dal fatto che non cal¬ 
colano le posizioni delle stelle per 
un’ora specifica né restringono la vi¬ 
suale. In questo modo non presenta¬ 
no un'autentica veduta del cielo not¬ 
turno e possono spesso confondere. 

Ci sono algoritmi separati per gli 
orizzonti settentrionale e meridiona¬ 
le (listato 2). Se viene selezionato 
l’orizzonte meridionale il program¬ 
ma controlla la presenza di stelle cir¬ 


cumpolari (non visualizzate) e stelle 
con declinazione (DEC) minore del 
negativo della latitudine (linee 780- 
820) che non sono mai visibili. 
Poi, dopo la conversione a linea 840 
dell’ascensione retta da ore a radianti, 
la linea 850 determina se la stella 
sia sorta. Date le variabili: 


Z = angolo zenitale in gradi 
S = ora siderale in ore 
D = declinazione in gradi 
R = ascensione retta in ore 
L = latitudine in gradi 


una stella è visibile se: 


cos L cos D cos H => -sen L sen D 


Trovate le stelle visibili è ora pos¬ 
sibile mettere in scala il tracciato in 
modo che il meridiano sia al centro 
dello schermo con sei ore di A.R. da 
ciascun lato (linea 880). Infine la de¬ 
clinazione della stella è messa in 
scala in modo che l’equatore celeste 
divida lo schermo con 45 gradi di de¬ 
clinazione sopra e sotto (linea 890). 

Per l'orizzonte settentrionale la si¬ 
tuazione è un poco più complessa: 
un tracciamento di coordinate polari 
fa in modo che le stelle abbiano l’ef¬ 
fetto di girare in cerchio attorno alla 
stella polare. Anche in questo caso 
viene fatto, a linea 940, il controllo 
della visibilità (mediante lo stesso al¬ 
goritmo di angolo zenitale). Poi, nel¬ 
le linee 950-1040, si usano l’ascen¬ 
sione retta e la declinazione per trac¬ 
ciare le posizioni delle stelle in un 
tracciato di coordinate polari con la 
stella polare al centro. In sostanza 
l'A.R. della stella è convertita in ra¬ 


dianti e ruotata di 90 gradi (6 ore) in 
senso antiorario a linea 970. Il risul¬ 
tato viene messo nella scala appro¬ 
priata e vengono calcolate le coordi¬ 
nate X,Y: 


X = RI COS (XP) 
Y = RI SEN (XP) 


dove RI è il fattore scalare e XP è 
l’angolo orario convertito. 

Aggiungere stelle alla lista è faci¬ 
le. Il primo passo consiste nell’inse- 
rire una linea DATA nel listato 1. 
Introducetela usando per i dati questo 
formato: 


A.R., declinazione, magnitudine, no¬ 
me della stella 


Usate il valore di A.R. per colloca¬ 
re al puntò giusto della lista la voce 
che introducete. Se il valore del- 
l’A.R. di cui disponete è in ore e mi¬ 
nuti convertite i minuti in un deci¬ 
male di due cifre. Analogamente con¬ 
vertite in un decimale di un'unica ci¬ 
fra la declinazione. Per fare un esem¬ 
pio la stella Aldib (Delta Draconis) 
figura nelle carte stellari con A.R. di 
19 ore, 13 minuti, DEC di 67 gradi, 
37 primi e magnitudine di 3.2. Con 
la conversione dei minuti la linea di 
dati da introdurre sarebbe questa: 


1685 DATA 19.22, 67.6, 3.2, 
ALDIB 


Il secondo passo consiste nel cam¬ 
biare il valore di NS alla linea 120 
del listato 1 e nel far girare nuova¬ 
mente il programma per generare un 
nuovo file della tavola. Da ultimo 
assicuratevi che le dimensioni delle 
matrici alla linea 130 del listato 2 
siano alte a sufficienza perché questo 
nuovo valore possa trovar posto. Se 
è necessaria un modifica tutti i valo¬ 
ri della linea 130 del listato 2 devo¬ 
no essere cambiati in modo che sia¬ 
no identici. 

La velocità dell'orologio, infine, è 
controllata dalla variabile W. Au¬ 
mentate il. suo valore alla linea 90 
del listato 2 per rallentare l’orologio, 
e diminuitelo per accelerarlo. 

f \ 

Questo programma è disponibile 

su dischetto. L’elenco, i prezzi 
e le modalità d’ordine di questo 
e degli altri dischetti disponibili 
sono riportati nella rubrica 
Disk Service. 

N... ... J 



© By Nibbio e Applicando 


37 




















One - liners 


Per disegnare in alta risoluzione, 
ecco un semplice one-liner inviato 
da Marco Falda, Leini (TO). La mati¬ 
ta si controlla con i tasti Z - W - A - 
S: rispettivamente su, giù, sinistra, 
destra. Con i tasti L ed M si può in¬ 
crementare o decrementare la variabi¬ 
le C, che definisce il colore. Nella 
parte bassa dello schermo viene indi¬ 
cato il colore (Hcolor) selezionato e 
la posizione X,Y in cui verrà visua¬ 
lizzato il punto. Utilizzando il ciclo 
FOR-NEXT Z, e decrementando Z 
di 1 prima di chiudere il ciclo (con 
NEXT Z), si è ottenuto un ciclo 
chiuso e continuo, evitando di utiliz¬ 
zare l’istruzione GOTO, che avrebbe 
rimandato il controllo a inizio riga 
pulendo la pagina grafica ogni volta 
a causa di HGR. 


One-liner 113 

1 HOME :C =3:X =100:Y =100: HGR 
: FOR Z = 1 TO 2: GET A$:X = 

X + (A$ = "S") * (X < 278) - 
(A$ - M A") * (X > 0) :Y = Y + 
(A$ = "W") * (Y < 159) - (A$ 

= "Z") * (Y > 0) :C = C + (A 
$ = "M") * (C < 7) - (A$ = " 
L")*(C > 0):HPLOT X,Y:HCOLOR= 
C:VTAB 22: PRINT "HC="C: VTAB 
22: HTAB 20: PRINT "X= ,, X" ": 

HTAB 20: PRINT ,i Y= ,, Y M " : Z = 

Z - 1: NEXT Z 


Dato il Run a questo one-liner di 
Augusto Beschin, Alte di Montec- 
chio (VI), viene creato sul disco un 
text file (BIP). Con l’istrazione E- 
XECBIP si autoinstalla in memoria 
una routine sonora e, a ogni tasto 
premuto, si ottiene un bip di con¬ 
ferma. 


One-liner 114 

10 A$ = CHR$ (4): PRINT A$"OPEN 
BIP":PRINT A$"WRITEBIP":PRINT 
"CALL-151": PRINT "300:A9 11 
85 38 A9 03 85 39 DO 03 20 
89 FE 20 EA 03 60 48 A0 0A A 
9 12 20 A8 FC AD 30 CO 88 DO 
F5 68 4C 1B FD N 300G3D0G": 
PRINT A$"EXECBIP" 

Eccq un piacevole effetto, realizza¬ 
to da Nicola Mazzariello del Villag¬ 
gio Snia di Milano. Genera delle bar¬ 
re a scorrimento verticale. 


One-liner 115 

1 FOR X = 768 TO 798:READ N:POKE 
X,N: NEXT : HGR : POKE 49234 
,0: HCOLOR= 3: FOR Y = 0 TO 
180 STEP 16: FOR X = Y TO Y + 
7: HPLOT 0,X TO 279,X: NEXT 
: NEXT : CALL 768: DATA 162, 
32,142,10,3,142,15,3,185,0,0 
,73,127,153,0,0,200,208,245, 
238,10,3,238,15,3,202,208,23 
6,76,0,3 


Anche questo one-liner, che produ¬ 
ce un piacevole effetto di pulizia del¬ 
la pagina di testo, è di Nicola Mazza¬ 
riello. 


One-liner 116 


X = 1 TO 24: HTAB 1: VTAB X: 
PRINT A$;: NEXT : FOR S = 1 
TO 20: POKE 32,20 - S: POKE 
33,2 * S: POKE 34,10 - INT 
(S / 2): POKE 35,14 + INT ( 
S / 2): HOME : FOR W = 1 TO 
50: NEXT : NEXT 


Carlo Giannini di Bibbiena (AR) 
ha realizzato un Text Writer su una 
sola linea. Scrivete una frase e date 
il RUN: la rivedrete sulla stampan¬ 
te. Può essere utile per completare, 
con la data o altro, un documento fa¬ 
ticosamente compilato. 


One-liner 117 

1 PRINT CHR$ (4)"PR#1": GET T$ 
: PRINT T$; SPC( 0);: GOTO 1 


Ecco un utile strumento per impa¬ 
rare le tabelline, ideato da Marco 
Sperati di Nizza Monferrato (AT): 
visualizza automaticamente, scriven¬ 
do i numeri da moltiplicare, il risul¬ 
tato lampeggiante nella tavola pita¬ 
gorica. 


One-liner 118 

1 HOME : POKE 34,20: FOR I = 1 TO 
10: FOR E = 1 TO 10: HTAB E * 
3:VTAB I * 2:PRINT I * E: NEXT 
E: NEXT I: FOR Q = 0 TO 1:Q = 
0: VTAB 22: INPUT H: INPUT G 
: ON (G > 10 OR H > 10) GOTO 
1: FLASH : HTAB H * 3: VTAB 
G * 2: PRINT G * H: NORMAL : 

GET G $ : HOME :HTAB H * 3:VTAB 
G * 2: PRINT G * H: NEXT Q 


Dello stesso autore, ecco un one-li¬ 
ner per scritte scorrevoli. Permette 
di far scorrere sul monitor una scrit¬ 
ta memorizzata nella variabile A$. 


One-liner 119 

1 A$ = "QUESTA RIGA PUÒ' ESSERE 
UNA SUBROUTINE DI UN VOSTRO 
PROGRAMMA. PERMETTE DI VISUA 
LIZZARE SCORREVOLMENTE LUNGH 
I MESSAGGI OCCUPANDO UNA SOL 
A RIGA": HOME :SPEED= 217: FOR 
I = 1 TO LEN (A$) - 19: VTAB 
22: HTAB 10: PRINT MID$ (A$ 
,1,20): NEXT I: SPEED= 255 


L'one-liner di Enrico Bernardini, 
Carrara S. Giorgio (PD) crea un fan¬ 
tastico disegno in alta risoluzione 
sulla pagina grafica 1. 


One-liner 120 

1 HOME : VTAB 21: HGR :Z = 8:K = 
10:T = 10: HCOLOR= 7: HPLOT 
130, 80 :A = 3 * RND (1):B = 

3 * RND (1): FOR H = 0 TO 6 
.28 STEP 3.14 / 180 :R = Z * 
SIN (H * T):X = 130 + INT 
(K * R * - COS (A * H)):Y = 
80 + INT {K * R * SIN (B * 
H)):HPLOT TO X,Y:NEXT H: FOR 
J = 1 TO 2500: NEXT J: GOTO 1 


Dato il RUN apparentemente non 
succede nulla. Ma provate a battere 
il tasto DELETE o TAB, oppure le 
frecce su e giù... 

In realtà, grazie al prpgrammino di 
Sergio Abeni, Castellare di Pescia 
(PT), avete a disposizione una nuo¬ 
va tastiera, particolarmente utile se a- 
vete un Ile e desiderate digitare i vo¬ 
stri programmi o copiare quelli al¬ 
trui. 

Come è noto, sul Ile è un conti¬ 
nuo ricorso al tasto di SHIFT o un 
continuo inserimento e disinserimen¬ 
to del tasto di SHIFT LOCK. Con 
questo one liner si potrà tenere sem¬ 
pre inserito il tasto SHIFT LOCK, 
dal momento che i simboli più usati 
(-,;:$) = " si ottengono premen¬ 
do rispettivamente FRECCIA 
GIU’, -, >, A , !, [, FRECCIA SU, 
DELETE, TAB. 

Questo one-liner non funziona sot¬ 
to ProDos ed è utile solo per il II c. 
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One-liner 121 

1 FOR A = 768 TO 820:READ B:POKE 
A,B: NEXT : DATA 169,11,133, 
56,169,3,133,57,76,234,3,32, 
27,253,160,12,217,28,3,240,4 
, 13 6, 20 8, 24 8, 96,185, 4 0, 3, 96, 

255.137.138.139.223.222.161, 

219.190.173.187.172.189.162, 
168,169,173,187,186,164,172, 
223,222,190: CALL 768 


Questo one-liner dimostra che non 
è difficile dare l’idea tridimensionale 
di una sfera con i suoi meridiani. E’ 
stato creato da Manlio Castronovo 
di Brindisi. 


One-liner 122 

. 1 HOME : HGR2 : HCOLOR= 3: FOR 
A = 20 TO 170 STEP 7:B = 1.1 
5 * ( SQR (6400 - (A - 95) * 
2)): FOR C = 0 TO 6.4 STEP . 
2:X = B * COS (C) + 139:Y = 
A - B * SIN (C) / 5: HPLOT 
X,Y:NEXT :HPLOT TO X,Y:NEXT 


Date il Run a questo one-liner di 
Luigi Favia, Brindisi, e vedrete sul 
monitor, in alta risoluzione, il mera¬ 
viglioso rosone di un'antica catte¬ 
drale. 


One-liner 123 

1 HOME : HGR : HCOLOR- 3: DIM A 
(21),B(21): FOR P = 2 TO 21: 

A (P) = 78 * SIN (.314 * P) + 
140 :B(P) - 78 * COS (.314 * 
P) + 80: NEXT : FOR P = 2 TO 
21: FOR Q = P TO 21: HPLOT A 
(P) , B (P ) TO A(Q),B(Q): NEXT 
: NEXT 


Utilizzando questo one liner di Fe¬ 
lice Rosso, Ragusa, è possibile tra¬ 
sformare un file in alta risoluzione 
da positivo in negativo e viceversa. 
Funziona anche con i file a colori. 
Date il RUN al programma, richia¬ 
mate un disegno sulla prima pagina 
grafica e battete CALL 24576. 

Non funziona con la seconda pagi¬ 
na grafica. 


One-liner 124 

1 FOR K = 24576 TO 24611: READ 
A: POKE K,A: DATA 169,32,141 
,15,96,141,18,96,162,0,169,2 
55,56,253,0,64,157,0,64,232, 
208,244,238,15,96,238,18,96, 
173,15,96,201,64,144,231,96: 
NEXT 


Ideato da Davide Massa di Savama 
(RA), questo one-liner permette di e- 
seguire somme e sottrazioni fra cifre 
sessagesimali. Dopo il RUN chiede 
di inserire le ore (H), i minuti (M) e 
i secondi; poi il segno dell'operazio¬ 
ne (+/-) e quindi la cifra sessagesi¬ 
male da addizionare o sottrarre alla 
prima. 


One-liner 125 

20 INPUT "H,M,S ";A,B, C: INPUT 
"+/-?: ";0$: INPUT H H,M,S " ; 
D,E,F:X = D * 3600 + E * 60 + 
F:S = A * 3600 + B * 60 + C + 

(0$ = " + ") * X - (0$ = "-") * 

X:H = INT (S / 3600) :S = S - 

H * 3 600:M = INT (S / 60) :S 

= S - M * 60: PRINT "RIS.=" 

;H;" H ";M;" MIN S;" SEC": 
PRINT"ANCORA? "; :GET Z$:PRINT 
: IF Z$ = "S" THEN 20 


La prima serie di cento 
programmi One-liners (Applicando 
N. 16) è disponibile su dischetto. 

I prezzi e le modalità d’ordine 
di questo, come degli altri 
dischetti, sono riportati nella 
rubrica Disk Service. 

> / 




Applicando a portata di mano 


E' disponibile il raccoglitore di Applicando e gli indici su 
dischetto degli anni 1983/84/85. Ogni raccoglitore 
consente di archiviare le annate 1983 e 1984 insieme 
oppure i numeri del 1985. Ordina subito i tuoi 
raccoglitori: riceverai in omaggio un numero arretrato di 
Applicando a tua scelta (valore L. 7.000) per ogni 
raccoglitore ordinato ( n.b. i numeri 1 e 2 sono esauriti). 



Sì, voglio avere Applicando sempre 
a portata di mano. Inviatemi: 

□ N...raccoglitori per 

Applicando a L. 18.000 cadauno 
In omaggio inviatemi l'arretrato/i 
N.(1 e 2 esauriti) 

□ Disco indici 

□ per Apple II a L.5.000 

□ per Macintosh a L. 10.000 
(utilizzabile con MacWrite) 

Vi invio L.a mezzo 

□ assegno non trasferibile 
allegato intestato a Editronica srl 

□ versamento su ccp N.19740208 
Editronica srl Corso Monforte 39 
20122 Milano di cui allego ricevuta 

Nome. 

Cognome. 

Via. 

Cap.Prov. 

Città. 
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SUPER 




PER II, //e, Ile 
MACINTOSH 



Il Basic e gli Apple II in pratica. Questo volume 
accompagna gradualmente l’utente, al quale 
non è richiesta alcuna conoscenza matematica 
o informatica di base, dai primi approcci alla 
tastiera fino alla completa padronanza del com¬ 
puter e della programmazione. È il lettore a 
decidere se passare al successivo capitolo o 
ritornare ad approfondire quanto gli è stato 
appena spiegato. 310 pagine, 28.000 lire. 



Il Multiplan per il Macintosh. Oltre la pura 
semplice descrizione del funzionamento del fo¬ 
glio elettronico, introduce l’utente all’uso di 
uno strumento di lavoro integrato che permette 
di svolgere una quantità insospettabile di attivi¬ 
tà diverse in ogni area del lavoro d’ufficio o nella 
professione: modifiche, tagli, spostamenti, ri¬ 
montaggi, dal bilancio di una società al campio¬ 
nato di calcio. 210 pagine, 26.000 lire. 



Il manuale ProDOS. Il ProDOS costituisce un 
significativo passo avanti rispetto al diffuso ma 
ormai un po’ invecchiato DOS 3.3. Questo ma¬ 
nuale introduce ai numerosi e complessi aspetti 
del ProDOS, dedicando particolare attenzione 
alla struttura ad albero dei directory, alla com¬ 
patibilità con il DOS 3.3 e con il SOS e alla 
programmazione in Basic Applesoft sotto Pro¬ 
DOS. 200 pagine, 25.000 lire. 



Il Basic Microsoft. Il libro comprende un’anali¬ 
tica descrizione dell’uso di tutte le istruzioni, 
funzioni, comandi e operatori, organizzata in un 
vero e proprio corso di programmazione: loop, 
array, gestione di stringhe, formattazione del¬ 
l’output, subroutine, debugging, uso dei me¬ 
nu, gestione dei file ad accesso casuale e se¬ 
quenziale, file di chiavi e puntatori. Ricchissima 
documentazione esemplificativa. 432 pagine, 
38.000 lire. 



Genitori nell’era del computer.ln che modo è 
possibile servirsi del computer nell’educazione 
dei figli? In che misura il computer cambierà la 
scuola? Qual è il software più adatto a stimolare 
la creatività dei bambini? A queste domande - e 
ad altre ancora - Pter Scharf dà delle risposte 
basate sulla sua esperienza in famiglia (quattro 
figli maniaci del computer) e nelle scuole statu¬ 
nitensi. 256 pagine, lire 19.000. 


COMPUTER 

GRAPHICS 

CORSO DI 
PROGRAMMAZIONE 
STEVEN HARRINGTON 



McGrawHì» 


Computer Graphics. L’approccio seguito da 
Harrington rende accessibile il libro a un pubbli¬ 
co con basi matematiche elementari e concate¬ 
nando la spiegazione dei vari algoritmi in modo 
da portare il lettore anche alla realizzazione di 
un package grafico ben costruito e basato su 
concetti di standardizzazione delle funzioni. 
520 pagine, 39.000 lire. 


PASCAL 

GUIDA PER 
PROGRAMMATORI 
OLIVIER LECARME 
JEAN-LOUIS NEBUT 



McGraw-Hill 


Pascal. Guida per programmatori. Il libro può 
essere usato per un corso intermedio da coloro 
che scrivono programmi più avanzati, ma il suo 
fine principale è quello di servire come libro dì 
testo per l’autoapprendimento, poiché esso of¬ 
fre una trattazione esauriente del Pascal e una 
descrizione fedele e precisa del linguaggio stan¬ 
dardizzato dall’ISO e dagli isituti nazionali di 
standardizzazione. 292 pagine, 29.000 lire. 











Programmazione umanizzata in Applesoft. 

Riassume tutte le tecniche che vengono comu¬ 
nemente impiegate dagli esperti di software per 
rendere più amichevoli i programmi. Vengono 
infatti affrontati tutti gli aspetti di queste tecni¬ 
che: sia quelli intèrni al software, come routine 
a prova d’errore o di formattazione dell’input, 
sia quelli esterni, come la documentazione e i 
manuali operativi. Il libro include un quiz mne¬ 
monico e un’agenda telefonica. 208 pagine, 
21.000 lire. 





Grafica e animazione con gli Apple //. Questo 
libro vuole guidare gli appassionati nella com¬ 
plessa materia della grafica e dell’animazione, 
prendendoli per mano dai primi rudimenti attra¬ 
verso numerosi esempi e applicazioni, fino a 
una completa comprensione dei principi e dei 
metodi della computer graphics. Gli esempi 
sono applicati allafamigla degli Apple//: Il Plus, 
//e e //c. 160 pagine, 17.000 lire. 



Il Basic Applesoft. In 16 capitoli, un metodo 
graduale che non presuppone alcuna cono¬ 
scenza di base. Tra gli argomenti trattati: uso 
interattivo del computer, sintassi dei comandi 
DOS, formattazione dell’input e dell’output, ar- 
ray, selezione e ordinamento dei dati, grafica a 
bassa e ad alta risoluzione, trattamento dei file 
su disco, debugging, riepilogo delle istruzioni, 
comandi e funzioni Applesoft. 232 pagine, 
19.000 lire. 



Guida al Macintosh. Fin dal primo approccio, il 
Mac è molto amichevole, e offre sul video una 
scelta tra varie opzioni, rappresentate da icone. 
In questo modo l’utente può scegliere una o più 
di queste funzioni potendo tranquillamente 
ignorare ciò che avviene all'interno della mac¬ 
china e superando così la naturale diffidenza 
che a volte i computer ispirano. Lo strumento 
fondamentale per questo rapporto amichevole 
con il Mac è il mouse. 224 pagine, 22.000 lire. 


Il manuale MC68000. La famiglia di questo 
microprocessore trova un utilizzo vastissimo in 
workstation, sistemi CAD/CAM, sistemi di 
commutazione telematici, robot e controllori di 
processo, oltre che nei microcomputer di re¬ 
cente realizzazione, come Macintosh, Sinclair 
QL, HP 9816. Questo manuale è una preziosa 
fonte di informazione per gli appassionati che 
vogliono cimentarsi con la programmazione in 
Assembler. 168 pagine, 16.000 lire. 


Come usare MacWrite e MacPaint. Molto più 
di quanto facciano i manuali operativi allegati ai 
programmi, questo volume svela ogni trucco 
dei due applicativi per Macintosh, spiegando ed 
esemplificando particolari tecniche di disegno e 
di gestione dei testi, sempre nell’ottica di un 
uso integrato dei due programmi. Il libro è 
riccamente illustrato con immagini prodotte se¬ 
guendo fedelmente i consigli del testo, così da 
offrire ai lettori il risultato grafico di ogni se¬ 
quenza di operazioni. 192 pagine, 20.000 lire. 
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Il gioco ha regole facili ed è appassionante. 
Ma il punteggio! Complesso da conteggiare, 
lungo da annotare, facile da contestare. 
Per giocare senza impicci, guadagnando 
magari anche il tempo per una partita in più.., 

Tutti i conti 
del tuo gin 


Giocare a Gin è molto semplice, 
soprattutto se si sa giocare a Scala 
quaranta, che presenta con il Gin 
molte somiglianze. Innanzitutto si 
gioca in 4, due giocatori nella squa¬ 
dra A e due giocatori nella squadra 
B. Ogni giocatore della squadra A 
gioca contro un giocatore della squa¬ 
dra B. Occorrono però non due maz¬ 
zi di 50 carte (i mazzi per la verità 
sono quelli da 52, ma vanno tolti i 
Jolly) bensì tre, perché il terzo serve 
da Vela o Mazzo guida. 

Una volta stabilita la squadra che 
per prima dà le carte, questa mescola 
e serve, mentre l'altra squadra mesco¬ 
la la Vela. La Vela si pone in mezzo 
al tavolo con le carte coperte, tranne 
l'ultima carta che va posta, girata, in 


cima al mazzo; a ogni mano la squa¬ 
dra che perde deve "girare la Vela”, 
cioè prendere l’ultima carta del maz¬ 
zo e portarla in cima, sempre scoper¬ 
ta: poi vedremo perché. 

Chi serve deve dare al suo avversa¬ 
rio 11 carte coperte, servirsene 10 e 
porre le carte avanzate sul tavolo, 
carte che verranno prese una alla vol¬ 
ta a ogni scarto, a meno che non si 
preferisca prendere la carta scartata 
dall'avversario. Il servito quindi scar¬ 
ta per primo, mentre il suo avversa¬ 
rio ha la possibilità di pescare dal 
mazzo o di prendere la carta scartata 
dall'avversario. Il gioco finisce quan¬ 
do uno dei due può posare sul tavo¬ 
lo tutte le sue carte contemporanea¬ 
mente. 


Per fare ciò le carte devono essere 
(almeno tre di fila) in scala di un uni¬ 
co colore e/o a gruppi di tre o quat¬ 
tro carte uguali (tre o quattro Regi¬ 
ne, tre o quattro 7, e così via). Per e- 
sempio, 6,7,8 di picche; tre Assi; 
Regina, Re, Asso e 2 di cuori (la 
scala può infatti continuare dopo il 
Re). Con questo fanno dieci carte; 
l'undicesima si scarta: si dice allora 
che il giocatore ha fatto Gin. Qualo¬ 
ra il giocatore riesca a mettere sul ta¬ 
volo tutte le sue carte senza scartar¬ 
ne nemmeno una si dice invece che 
ha fatto Big. 

Il suo avversario pagherà tutte le 
carte in mano, tranne i tris (o quat¬ 
tro carte uguali), le scale e le carte 
"di appoggio", cioè le carte che pos- 



Figura 1. Per prima cosa ii programma chiede il 
nome dei quattro giocatori, divisi in due squadre. 


Figura 2. Al termine di ogni mano, basta indicare il 
numero relativo al punteggio fatto. 













sono essere aggiunte a quelle che 
Tavversario ha messo sul tavolo (il 
quarto Re, se il vincitore ha messo 
sul tavolo tre Re, un appoggio a u- 
na scala, e così via). Le carte conta¬ 
no il loro punto (un 5 cinque punti, 
un 7 sette punti), le figure dieci pun¬ 
ti e gli Assi quindici punti. 

Oltre al Big e al Gin c’è però un'al¬ 
tra possibilità, ed ecco il perché del¬ 
l’esistenza della Vela o Mazzo guida. 
E’ infatti possibile chiudere in battu¬ 
ta, o battere, e cioè mettere sul tavo¬ 
lo per esempio un tris e cinque carte 
in scala e scartare le ultime tre carte, 
purché la somma di due di queste tre 
carte sia inferiore alla Vela, cioè alla 
carta scoperta in cima al Mazzo gui¬ 
da. Per esempio, se sulla Vela c’è un 
5, le tre carte scartate possono esse¬ 
re solo due 2 (totale quattro, quindi 
un punteggio inferiore a quello indi¬ 


cato dalla Vela) e una terza carta qua¬ 
lunque. Ma attenzione, perché il vo¬ 
stro avversario potrebbe andare Un¬ 
der, cioè rimanere con le carte che 
non può mettere sul tavolo o appog¬ 
giare alle vostre che, sommate, dan¬ 
no un punteggio uguale o inferiore 
al vostro quattro. 

Per esempio, se dovesse rimanere 
con un 3, ecco che andrebbe Under; 
in questo caso, voi non guadagnere¬ 
ste né perdereste alcun punto, men¬ 
tre al vostro avversario spetterebbero 
50 punti. Se invece il vostro avver¬ 
sario non va Under, il punteggio si 
calcola sottraendo alle carte che gli 
rimangono in mano, tolte cioè quel¬ 
le che può mettere sul tavolo perché 
tris o in scala, o quelle che può ap¬ 
poggiare alle vostre, i punti della vo¬ 
stra battuta: nell’esempio appena ac¬ 
cennato, quattro punti. 


La battuta però non può essere ef¬ 
fettuata se la carta scoperta della Ve¬ 
la è un asso: in questo caso si dice 
che è Gin obbligatorio, e quindi vin¬ 
ce solo chi chiude regolarmente con 
una sola carta di scarto o con nes¬ 
suna. 

Altro particolare importante: tutte 
le carte che a mano a mano vengono 
scartate possono essere guardate du¬ 
rante il gioco, perché è importante e- 
vitare di scartare carte che l’avversa¬ 
rio può utilizzare per comporre i pro¬ 
pri tris e le proprie scale. 

Fin qui, tutto semplice; la faccen¬ 
da si complica maledettamente quan¬ 
do si tratta di segnare i punti e poi 
di calcolare il punteggio finale. Ecco 
il perché di questo programma dispo¬ 
nibile sia in versione per Apple II 
che per Macintosh, di cui però non 
pubblichiamo i listati perché occu- 


MANO 

Squadra <A> 

GIORGIO STEFANO 

a 

n. a 

FRANCESCA HM 

1 .BIG 

BIG 

1 

2.GIN 

GIN 

GIN 

3. Battuta 

Battuta 

Battuta 

4. Under 

Under 

Under 

5. Paga 

Pa9a 

Pa9a 


Fiaura 3. Se si sceglie l'opzione 5, "paga punti", 
allora il computer chiede s 'quanti punti?". 



Figura 4. Dato l'ok all'operazione descritta in figura 
3, il computer presenta il punteggio aggiornato. 



n. a 

Squadra <B> 


Squadra <A> Squadra <B> 

GIORGIO STEFANO FRANCESCA MARCO 


MANO 
Squadra <A> 
GIORGIO STEFANO I 


i n. a 

Squadra <B> 
FRANCESCA MARCO 



Vuoi calcolar* il punt* 99 io <S/N> 


Figura 5. Proseguendo con le mani, il computer 
aggiorna il punteggio e blocca le colonne chiuse. 


Figura 6. Ecco come si presenta il tabellone dei 
punteggi al termine di una partita. 
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Figura 7. Come nella versione per Apple II, anche in 
quella per Mac è facile dare le indicazioni al computer. 
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VUOI GIOCARE UN’ALTRA MANO? 


Figura 8. Il Mac calcola automaticamente il punteggio, 
proponendolo aggiornato a ogni mano successiva. 


perebbero troppo spazio; ma i pro¬ 
grammi su dischetto sono disponibi¬ 
li attraverso il Disk Service o gratis 
per chi ha sottoscritto un abbona¬ 
mento ad Applicando con disco pro¬ 
grammi (vedi pagine 30 e 31). 

Il punteggio 

Il punteggio deve essere segnato 
su un foglio come evidenziato nella 
figura 4. Facciamo un esempio 
pratico: i due giocatori della squadra 
A fanno entrambi Gin contro i gioca¬ 
tori della squadra B. I giocatori della 
squadra B pagano rispettivamente 5 
e 15 punti. I due Gin valgono 50 + 
50 punti, cioè 100 punti, i 20 pun¬ 
ti degli avversari vengono raddoppia¬ 
ti, valgono cioè 40 punti. Si segna 
quindi la squadra A nella parte supe¬ 
riore della prima colonna, con 140 
punti, mentre nella parte inferiore, 
sempre della prima colonna, si se¬ 
gnano 9 Cocotte o Cocche. Le Co¬ 
cotte sono infatti punti aggiuntivi 
che vengono attribuiti solo alla squa¬ 
dra che vince la mano e sono, rispet¬ 
tivamente, 10 per ogni Big, 5 per o- 
gni Gin e 1 per la Battuta. 

Ma se entrambi i giocatori di una 
squadra vincono la mano, come nel 
caso che stiamo ipotizzando, si som¬ 
mano 5 + 5 Cocotte, ma si sottrae 1 
punto, quindi si segnano solo 9 Co¬ 
cotte, perché le Cocotte devono esse¬ 
re sempre dispari. 

Complicato? Be', il peggio deve 
ancora venire. Ipotizziamo a questo 
punto una seconda mano in cui sia 
un giocatore della squadra A sia uno 
della squadra B facciano Big; natural¬ 
mente gli altri due giocatori pagano. 
Poniamo che quello della squadra A 
paghi 2, mentre quello della squadra 


B paga 10. Ecco il risultato: 100 - 4 
= 96; 100 - 20 = 80; 96 - 80 = 16. 
Segna quindi 16 punti nella seconda 
colonna la squadra A. Questi 16 pun¬ 
ti vanno sommati anche al risultato 
precedentemente segnato nella prima 
colonna. Mentre le Cocotte vengono 
attribuite solo alla squadra A, la 
squadra che si segna, e sono 9 per 
via del Big. Anche queste, poi, devo¬ 
no essere sommate a quelle già se¬ 
gnate nella prima colonna. 

Terza mano. Squadra A: un Gin e 
una Battuta; Squadra B: Under e 5 
punti. Totale: 50 del Gin + 0 della 
Battuta = 50; 50 dellUnder - 10 = 
40. 50 - 40 = 10 per la squadra A. 
Questo punteggio va segnato in ter¬ 
za colonna, ma sommato anche sia 
nella prima sia nella seconda colon¬ 
na. Le Cocotte sono 5 per la squadra 
A per via del Gin. 

La partita continua finché non si 
raggiungono 450 punti in ogni co¬ 
lonna. Naturalmente quando una co¬ 
lonna è chiusa non bisogna più som¬ 
mare al suo interno i punti della ma¬ 
no successiva, come pure non biso¬ 
gna sommarli nella corrispondente 
colonna avversaria, anche se in que- 
st’ultima i punti sono inferiori al 
450. Ma attenzione ai Blitz! Perché 
se una squadra non si segna in una 
delle tre colonne, si dice che in quel¬ 
la colonna è stata blizzata, e allora 
nel conteggio finale paga altre pena¬ 
lità. 

Il conteggio finale 

Se il calcolo fin qui vi è sembrato 
complesso, pensate solo che sarà il 
vostro Apple II o il vostro Macinto¬ 
sh a eseguirlo, liberandovi dall’obbli- 
go di assumere un ragioniere allo 


scopo. Bisogna infatti ancora fare il 
conteggio dei punti squadra per squa¬ 
dra, sommando i totali delle tre co¬ 
lonne. Poi va aggiunto un premio di 
450 punti per ogni colonna chiusa, 
al quale va aggiunto un premio corri¬ 
spondente al dóppio del punteggio 
ottenuto in ogni colonna la cui co¬ 
lonna corrispondente dell'avversario 
sia stata blizzata. Infine si conteggia¬ 
no le Cocotte e si raddoppiano quel¬ 
le eventualmente appartenenti alla o 
alle colonne, le cui corrispondenti 
colonne della squadra avversaria sia¬ 
no state blizzate, e si moltiplica per 
25. Infine si fa la differenza tra i due 
risultati. 

Il programma 

Con AppleGin (versione per il II) 
o MacGin (versione per Macintosh), 
basta specificare per ogni giocatore 
se ha fatto Big, Gin, Battuta, Under 
o se paga punti. In quest'ultimo ca¬ 
so il computer chiede quanti punti. 
Dopodiché il computer visualizza, 
mano per mano, il risultato, segnala 
quando una colonna è chiusa e, alla 
fine di una partita, quando cioè tutte 
e tre le colonne sono chiuse, calcola 
il punteggio finale in pochi secondi. 

Con il tempo risparmiato, in una 
serata si può tranquillamente fare un 
Gin in più, quella rivincita che si 
vorrebbe tanto fare, ma che... 

Francesca Marzotto 

( \ 

Questo programma è disponibile 

su dischetto. L’elenco, i prezzi 
e le modalità d’ordine di questo 
e degli altri dischetti disponibili 
sono riportati nella rubrica 
Disk Service. 

> M 
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«Nutricale 

E' un integrato dedicato a chi esce dai freddi invernali 
con qualche chilo di troppo. Un database di 900 cibi, in¬ 
cluso il pranzo tipico americano accolto anche da noi 
con il nome di fast food, provvede ad analizzare calorie, 
sodio, colesterolo, grassi, proteine e vitamine dei piatti 
inseriti. 

I valori, poi, vengono rappresentati in veste grafica co¬ 
sì come i risultati dell’analisi che suggeriscono cosa e 
quanto sarebbe meglio evitare o le proteine che mancano 
per un giusto equilibrio alimentare. Nutricale costa 80 
dollari ed è prodotto dalla Camde Corporation, 46 Prince 
Street, Rochester, New York 14607. Telefono (716) 
473-5330. 


LIST ALI 

Select Foods to List... 

m | 

ch*rri« ,sour ,rt d ,pit 

Change Food Ordering... 

9C0 

ch*rry pi*, whol* 
chicken &. noodl*s (ho 

[^Display graph 

Display RDA analysis 

r\ 

chtcktn a la king 
chick*n br*ast, fr i*d 
chr- -— —1 

^Display energy sources 
| Display history data... 

1 

%H | 


é File Edit 


Change-lnfo 


•olls, brovn & s*rv* 
fluid whol* milk (3.338 fai) 
Dotato salad 


Energy Sources 



Quantity 


Cherry Pie, 1/7 Slice 
flmt: 11.00 I Slices 


_ mcns 

OCup OPint OQuart ( Cancel ] 
OTbsp O Tsp OGram 
OOunce O Pound OCC 


0K 


0 20* 40* 60* 80* 100* 


EMERGV Ca 
F'ROTEIN Gm 
FflT Gm 

CflRBOH. Gm 
IROM rig 
UIT. C Mg 
S001UM Mg 
CHOLES. Mg 


Nutrients, 


•Ready Set-Go versione 2.0 

Continuano la campagna e il successo di Apple Edit, 
l'editoria in casa con Macintosh e LaserWriter. A testi¬ 
monianza di ciò, la Manhattan Graphics ha presentato la 


versione 2.0 di Ready Set-Go, un programma per impa¬ 
ginare direttamente sul video del Macintosh. Ready Set- 
Go è stato il primo esempio di Desktop Publishing con 
il Mac, e come spesso accade ha pagato il dazio dei novi¬ 
zi. Il meccanismo di lavoro risultava piuttosto complica¬ 
to; in particolare era possibile studiare un solo layout di 
una pagina e il trasferimento di testo e figure poteva av¬ 
venire soltanto attraverso il clipboard; oppure si poteva 
battere il testo direttamente sul monitor di Ready Set- 
Go. 

La versione 2.0 permette invece diversi layout e 
preleva direttamente i testi da un file di Microsoft Word 
o di MacWrite. Per le figure bisogna invece passare attra¬ 
verso l’archivio appunti. Altri vantaggi della nuova ver¬ 
sione sono la possibilità di lavorare con un trentaduesi¬ 
mo (32 pagine in gergo tipografico) per ogni file e l’op¬ 
zione Add a page che permette durante la lavorazione di 
aggiungere una eventuale pagina al numero stabilito nei 
parametri iniziali. Questo per non trovarsi senza più spa¬ 
zio con altro testo da inserire e dover aprire così un nuo¬ 
vo file. 

Ulteriori informazioni possono essere richieste alla 
Paolini, via Ostiense 48, Roma, telefono 06/5755006. 

•Orbiter 

Sull’onda del successo dei simulatori di volo la Spe- 
ctrum Holobyte, famosa software house statunitense, ha 
sviluppato un programma di simulazione dello SpàCe 
Shuttle. 

Orbiter, così è stato battezzato il nuovo gioco, chiede 
all’inzio di fissare i parametri della missione a cui è de¬ 
stinato il viaggio nelle orbite spaziali. E’ possibile fissa¬ 
re obiettivi come la costruzione di stazioni spaziali, o la 
riparazione di satelliti danneggiati o solo un semplice 
viaggio di esplorazione nello spazio. I comandi sono tut- 
t’altro che semplici: un infinito numero di controlli e in- 
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Un mouse. 

La sua Mouscotte. 



Niente più segni sulla scrivania. 

E una superficie liscia, ideale, appositamente 
studiata per assicurare la massima scorrevolezza 
ed efficienza al mouse. Sotto, uno strato di gomma: 
la Mouscotte non si sposta. Chiedi Mouscotte ai 
migliori Computer Shop Apple. Oppure richiedilo 
direttamente a Editronica usando il tagliando di 
questa pagina. 


Per ricevere Mouscotte basta compilare e spedire subito questo 
tagliando a Editronica Sri, Corso Monforte 39, 20122 Milano. 

r -, 

| □ Speditemi subito Mouscotte. Accludo assegno non trasferibile 

intestato a Editronica Srl di lire 29.500 comprensive di Iva e 
| spese di spedizione al mio indirizzo. 

□ Speditemi subito Mouscotte. Accludo ricevuta di versamento di 
| lire 29.500 sul conto corrente postale n. 19740208 intestato a 

Editronica Srl. 

□ Speditemi subito N.Mouscotte. Accludo ricevuta di 

versamento / assegno di lire. 

I 


I 

I 

I 


□ Desidero fattura. 

Il mio Codice fiscale/Partita Iva è:. 

Cognome . Nome 



dicatori riempie lo schermo del Mac, 
e, subito sopra il pannello di control¬ 
lo, rimmensità dello spazio attraver¬ 
sa la cabina di comando. Orbiter co¬ 
sta 146 mila lire, iva 9% eslusa, e 
può essere richiesto alla Bits & 
Bytes, via S.Francesco d'Assisi 8, 
'Milano. Telefono 02/8376207. 

•I know it's 
here somewhere 

Prodotto dalla Hayden software, la 
software house produttrice della serie 
Da Vinci e della scacchiera Sargon 
III, questo programma dal nome in¬ 
terminabile (letteralmente: so che è 
qui da qualche parte) risponde alle pu¬ 
re esigenze di archiviazione dati. 
Semplice per impostazione, econo¬ 
mico nel prezzo ma limitato rispetto 
ad altri data base in commercio, è de¬ 
dicato a piccole utenze che necessita¬ 
no di uno strumento veloce e affida¬ 
bile. Il discc* programma comprende 
31 esempi di file format che posso¬ 
no essere comunque variati in base 
alle esigenze dell’utente. Le ricerche 
possono essere effettuate in chiavi 
multiple ed è possibile fare riferi¬ 
mento fino a cinque file contempora¬ 
neamente. In Italia I know it’s where 
somewhere è distribuito nella versio¬ 
ne originale dalla Bits & Bytes, via 
San Francesco d’Assisi 8, Milano, 
tei. 02/ 8376207. Il prezzo di listino 
è di 180 mila lire, iva 9% esclusa. 

•Calculator 
construction kit 

Ai novizi del Macintosh vedere 
spuntare fuori dalla melina la calcola¬ 
trice sembra una magia. Poi però ci 
si rende conto che le operazioni pos¬ 
sibili sono ben poche, i quattro se¬ 
gni matematici e nulla più. Funzio¬ 
ni che comunemente si trovano nel¬ 
le più limitate macchine per calcolo 
comepercentualeo radice quadrata di¬ 
ventano operazioni ardue e complica¬ 
te da effettuare in punta di mouse. Il 
programma Calculator construction 
kit permette però di creare su misura 
la propria calcolatrice, con le funzio¬ 
ni che si desiderano: ovviamente au¬ 
mentando le operazioni richieste alla 
macchina per calcolo aumenta di pa¬ 
ri passo la memoria occupata. Calcu¬ 
lator construction kit costa 276 mila 
lire, iva 9% esclusa, e in Italia è di¬ 
stribuito da Software Shop, corso 
XXII Marzo 33, Milano, telefono 
02/7387444. 


Indirizzo. 

i 


i 


CaD 


Città 


Prnv 
















Tutto sta nello scagliare atomi nella scatola nera indovinando la posizione 
degli atomi nascosti: gli effetti di riflessione, reiezione e assorbimento 
presentano nuove sfide ogni volta che si affronta questo gioco 
che è, a tutti gli effetti, il gioco dell'ignoto. 


Sfida atomica 
nella scatola nera 


Scatola nera è un gioco di deduzio¬ 
ne. Si gioca con un riquadro di 8x8, 
il cui interno non è visibile. Il com¬ 
puter dispone tanti atomi nel riqua¬ 
dro (la scatola) quanti noi abbiamo 
deciso (da uno a otto) e il giocatore 


deve sparare atomi nella scatola da 
varie posizioni fino a scoprire la po¬ 
sizione di ciascun atomo nascosto. 
La difficoltà del gioco è naturalmen¬ 
te maggiore in relazione al numero 
degli atomi nascosti. 


Listato 1. Scatola nera 

DOS 3.3 

in ppm _ _ _ 


ìu KLra — - 

20 REM SCATOLA NERA 

30 REM DI GARY KNOX 

40 REM COPYRIGHT (C) 1986 

Apple Ile 

Apple Ile 


50 REM BY APPLICANDO & 

60 REM MICROSPARC, INC 

70 REM - 

80 GOSUB 1720 

90 DEF FN R(Q) = INT (8 * RND (3)) +1 
100 HOME : VTAB 12 

110 INPUT "INDICA IL NUMERO DI ATOMI (FINO A 8) ";N 

120 IF N < = 0 OR N > 8 THEN VTAB 4: PRINT "RIPROVA": CALL - 9 

58: VTAB 12: GOTO 110 
130 DI = INT ((N + 3) / 4) 

140 FOR K = 1 TO 8 : A(K) = 0:B(K) = 0:: NEXT 
150 A(l) = FN R (3) : B (1 ) = FN R(3) 

160 FOR K = 2 TO N 

170 CX = FN R(3):CY = FN R(3) 

180 FOR L = 1 TO K - 1 

190 IF A(L) = CX AND B(L) = CY THEN 170 

200 NEXT L 

210 A (K) = CX : B (K) = CY 
220 NEXT K 
230 HOME 
240 REM 

250 REM **DISEGNA LA SCATOLA NERA** 

260 GOSUB 1610 

270 VTAB 2: HTAB 15: PRINT "LATO 1" 

280 VTAB 9: PRINT "LATO 4" 

290 VTAB 9: HTAB 29: PRINT "LATO 2" 

300 VTAB 17: HTAB 15: PRINT "LATO 3" 

310 VTAB 18: CALL - 958: HTAB 1 

320 HTAB 1: VTAB 19: PRINT "PUNTI = "PT 

330 REM 

340 REM **.INDICA LA POSIZIONE DI SPARO** 

350 VTAB 21: INPUT "INDICA IL NUMERO DEL LATO ";S 
360 IF S > 4 OR S < 0 THEN 310 
370 PT = PT - INT (20 / DI) 

380 VTAB 21: CALL - 958: INPUT "INDICA LA POSIZIONE SU QUEL LATO 
" ; P 

390 IF P > 8 OR P < 0 THEN 380 
400 INVERSE 

410 GOSUB 980: GOSUB 1090: GOSUB 1500 
420 PRINT P 
430 FF = 0 

44 0 TX = X + XD :TY = Y + YD (Continua) 


All'inizio il programma dà la pos¬ 
sibilità di scegliere se cominciare su¬ 
bito a giocare o avere una descrizio¬ 
ne completa del gioco; chiede poi il 
numero degli atomi da nascondere 
nella scatola. 

Dopo che la scatola è stata disegna¬ 
ta sullo schermo e vi sono stati na¬ 
scosti gli atomi, ci viene chiesto da 
quale lato e da quale posizione lungo 
quel lato vogliamo sparare nella sca¬ 
tola. Il computer mostrerà solo la 
posizione di partenza dalla quale l'a¬ 
tomo lanciato entra nella scatola, e 
la posizione finale dalla quale l'ato¬ 
mo emerge dalla scatola. Sulla base 
dei risultati si può cercare di indovi¬ 
nare dove sia situato un atomo na¬ 
scosto, sparare un altro atomo nella 
scatola o abbandonare. Se si decide 
di abbandonare, il computer mostre¬ 
rà dove erano nascosti gli atomi. 
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Come funziona 
il programma 

Il programma utilizza solo la vi¬ 
sualizzazione del testo e non fa al¬ 
cun ricorso alla grafica. Tutto il mo¬ 
vimento e tutto il disegno sullo 
schermo sono fatti in modo testo. 
Questo fatto può risultare molto uti¬ 
le a chi volesse osservare e appren¬ 
dere qualche interessante tecnica di 
programmazione. 

Il programma è suddiviso nelle 
procedure seguenti: 

i 90-320 Nasconde gli atomi e stampa 
il riquadro sullo schermo. 

350-420 Riceve e stampa la posizio¬ 
ne di sparo, gli incrementi di moto e 
le coordinate deH’atomo sparato. 

^ 440480 Vede se l’atomo lanciato 
sia stato assorbito. 

500-560 Riceve le istruzioni usate 
per controllare la riflessione, l’assor¬ 
bimento eccetera. 

590-690 Controlla le riflessioni, le 
reiezioni e gli assorbimenti. 

710-820 Stampa l’atomo che emer¬ 
ge, il totale di punti e le scelte. 
,>830-920 Azzera i lati d'inizio e di u- 
scita per fatomo a causa di un cam¬ 
biamento di direzione. 

\ 980-1060 Calcola le posizioni di 
^stampa nel riquadro. 

^1090-1170 Riceve gli incrementi di 
moto per l’atomo lanciato, 
yl200-1230 Stampa le posizioni del¬ 
l’atomo nascosto per il giocatore che 
abbandona. 

^250-1330 Introduce la congettura e 
vede se il giocatore aveva già fatto 
l'ipotesi della stessa locazione. 
1340-1470 Vede se la congettura era 
esatta e stampa i risultati. 

1500-1580 Riceve le coordinate d'ini¬ 
zio del tiro. 

1610-1640 Stampa i numeri del ri¬ 
quadro. 

1670-1690 Cambia la direzione quan¬ 
do un atomo viene riflesso. 
1720-2450 Dà le istruzioni e le re¬ 
gole del gioco. 

2460-2470 La routine di dimostrazio¬ 
ne del tiro. 

2480 Moto rettilineo per la dimostra¬ 
zione di tiro. 

2490-2540 Moto riflesso per la di¬ 
mostrazione di tiro. 

Vediamo ora quali sono le princi¬ 
pali variabili utilizzate e qual è la lo¬ 
ro funzione nel programma: 

A( ) Coordinate X degli atomi na¬ 
scosti. 

B( ) Coordinate Y degli atomi na¬ 
scosti. 


450 IF FF = 1 THEN 490 
460 FOR K = 1 TO N 

470 IF A( K) = TX AND B (K) = TY THEN ZX$ = "ASSORBITO": GOTO 750 

480 NEXT K 

490 RESTORE 

500 FOR K = 1 TO S 

510 FOR L = 1 TO 4 

520 READ CX(L), CY(L) 

530 DATA -1,0,1,0,-1,1,1,1, 0,-1, 0,1, -1,-1,-1,1 
540 DATA -1,0,1,0,1,-1, -1,-1,0,-1,0,1, 1, 1, 1,-1 
550 NEXT L 

560 NEXT K 

570 IF FF = 1 THEN 630 

580 FF = 1 

590 FOR K = 1 TO N 

600 IF A(K) = TX + CX(1) AND B(K) = TY + CY(1) THEN ZX$ = "RIFLES 
SO INDIETRO": GOTO 740 

610 IF A (K) = TX -f CX (2) AND B ( K) = TY + CY(2) THEN ZX$ = "RIFLES 
SO INDIETRO": GOTO 740 
620 NEXT K 

630 TT = 0: FOR K = 1 TO N 

640 IF A ( K) = TX + XD AND B(K) = TY + YD THEN ZX$ = "ASSORBITO": 
GOTO 750 

650 IF A(K) = TX + CX(3) AND B(K) = TY + CY(3) THEN ZX$ = "RIFLES 
SO":TT - TT + 3 

660 IF A( K) = TX + CX(4) AND B(K) = TY + CY(4) THEN ZX$ = "RIFLES 
SO":TT = TT + 1 
670 NEXT K 

675 IF TT = 1 THEN 880 

676 IF TT = 3 THEN 830 

677 IF TT THEN 930 , 

680 X = TX :Y = TY 

690 IF X = 0 OR X = 9 OR Y = 0 OR Y = 9 THEN 710 
700 GOTO 440 

710 S = (S + 2) - INT (*(S + 2) / 4) * 4 
720 IF S = 0 THEN S = 4 

730 IF ZX$ = "" THEN ZX$ = "PASSATO ATTRAVERSO" 

740 FLASH : GOSUB 980: PRINT P 

750 HTAB 15: VTAB 23: INVERSE : PRINT ZX$:ZX$ = "" : FOR ZZ = 1 TO 
2000: NEXT ZZ: NORMAL 

760 HTAB 1: VTAB 19: CALL - 958: PRINT "PUNTI = "PT 

770 VTAB 22: PRINT " - " 

780 VTAB 21: CALL - 868: INPUT "F=FINIRE S=SPARARE G=SUPPORRE (S 
CEGLI ) " ; PQ$ 

790 IF PQ$ = "S" THEN GOSUB 1610: GOTO 310 

800 IF PQ$ = "F" THEN GOSUB 1610: GOTO 1200 

810 IF PQ$ = "G" THEN 1250 

820 GOTO 780 

830 TT = 3: GOSUB 1670 

840 GOSUB 1090 

850 IF ABS (XD) = 1 THEN P = TY: GOTO 680 

860 P = TX 

870 GOTO 680 

880 TT = 1: GOSUB 1670 

890 GOSUB 1090 

900 IF ABS (XD) = 1 THEN P = TY: GOTO 680 

910 P = TX 

920 GOTO 680 

930 TT = 2: GOSUB 1670 

940 GOSUB 1090 

950 GOTO 680 

960 REM 

970 REM ** CALCOLA LA POSIZIONE DELLA SCATOLA** 

980 ON S GOTO 990,1010,1030,1050 
990 VTAB 5: HTAB (2 * P + 8) 

1000 GOTO 1060 

1010 HTAB 26: VTAB (P + 5) 

1020 GOTO 1060 

1030 VTAB 14: HTAB (2 * P + 8) 

1040 GOTO 1060 
1050 VTAB (P + 5) : HTAB 8 
1060 RETURN 
1070 REM 

1080 REM * * INCREMENTI DI MOTO** 

1090 ON S GOTO 1100,1120,1140,1160 

1100 XD = 0 :YD = 1 

1110 GOTO 1170 

1120 XD = - 1 :YD = 0 

1130 GOTO 1170 

1140 XD = 0 :YD = - 1 

1150 GOTO 1170 

1160 XD = 1 :YD = 0 

1170 RETURN 

1180 REM 

1190 REM **STAMPA TUTTI GLI ATOMI** 

1200 FOR K = 1 TO N 

1210 HTAB (2 * A (K) + 8): VTAB (B(K) + 5): PRINT "*" 

1220 NEXT K 

1230 VTAB 20: HTAB 1: CALL - 958: VTAB 21: PRINT "ECCO LA POSIZI 
ONE DEGLI ATOMI!": FOR ZZ = 1 TO 2000: NEXT : GOTO 1440 
1240 REM 
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1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 

1820 

1830 

1840 

1850 

1860 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 


REM * ^CONGETTURA E CONTROLLO* * 

VTAB 20: CALL - 958 
NORMAL : VTAB 21 
INPUT "INDICA LA RIGA ";R 
PRINT 

INPUT "INDICA LA COLONNA ";C 
FOR W9 = 1 TO CO 

IF C = C(W9) AND R = D(W9) THEN 1410 
NEXT W9 

FOR K = 1 TO N 

IF A(K) = C AND B(K) = R THEN INVERSE : HTAB 22: VTAB 22: P 
RINT "ESATTO": FOR EE = 1 TO 3000: NEXT : CO = CO + 1 :PT - PT 
+ INT (500 * DI): GOTO 1370 
GOTO 1390 

HTAB (2 * A(K) + 8): VTAB (B(K) + 5): NORMAL : PRINT "*" 


GOSUB 1610: HTAB 1: VTAB 20: 


1 TO 


- 958: GOSUB 1610:PT = PT - 100 * DI: 


- 958: VTAB 21: PRINT "LE HAI INDOVIN 


= "PT: 


HTAB 1: 
S O N 


VTAB 22 
?" ;A$: IF 


LEFT$ (A$,1) 


C(CO) = C:D (CO) = R: NORMAL 
ALL - 958: GOTO 1420 
NEXT K 

INVERSE : HTAB 22: VTAB 22: PRINT "SBAGLIATO": FOR ZZ 
3000: NEXT : NORMAL 
HTAB 1: VTAB 20: CALL 
GOTO 760 

IF CO < > N THEN 760 

VTAB 21: HTAB 1: CALL 
ATE TUTTE ! !" 

VTAB 19: PRINT "PUNTI 
PRINT : INPUT "GIOCHI ANCORA? 

= "S" THEN CLEAR : GOTO 90 
FOR ZZ = 1 TO 1000: NEXT : HOME : 

GOTO 310 
REM 

REM **COORDINATE DI TIRO** 

ON S GOTO 1510/1530,1550,1570 
X - P:Y = 0 
GOTO 1580 
X = 9 : Y = 

GOTO 1580 
X = P : Y = 

GOTO 1580 
X = 0 : Y = P 
RETURN 
REM 

REM * * STAMPA NUMERI RIQUADRO** 

HTAB 10: VTAB 5: FOR X = 1 TO 8 : PRINT X" 

: VTAB 6 

FOR X = 1 TO 8: HTAB 8: PRINT X;: HTAB 26: PRINT X: NEXT X: 
VTAB 14: HTAB 10 

FOR X = 1 TO 8: PRINT X" ";: NEXT X 

RETURN 

REM 

REM **CAMBIA DIREZIONE** 

S = (S + TT) - INT ( (S + TT) 


9 


NEXT X: PRINT 


/ 4) 


IF S = 0 THEN 
RETURN 
REM 

REM **ISTRUZIONI DI GIOCO** 

HOME 

VTAB 10: HTAB 14: PRINT "SCATOLA NERA" 

VTAB 12: HTAB 19: PRINT "DI" 

VTAB 14: HTAB 15: PRINT "GARY KNOX": VTAB 20: PRINT "(C) 198 
6 BY APPLICANDO & MICROSPARC,INC." 

VTAB 24: HTAB 5: INPUT "PREMI RETURN PER CONTINUARE..";PP$ 
HOME : VTAB 12: INPUT "ISTRUZIONI S-SI* N=NO ";PP$ 

IF LEFT$ (PP$,1) = "N" THEN 2440 
SPEED= 200: HOME : VTAB 5 

PRINT " IL COMPUTER METTERÀ' GLI ATOMI IN": PRINT : HTAB 3: 
PRINT "UNA SCATOLA NERA, IN MODO CASUALE." 

PRINT " DEVI INDOVINARE DOVE SONO!" 

PRINT " DEVI SPARARE ATOMI NELLA SCATOLA E" 

HTAB 2 

IL COMPUTER MOSTRERÀ* DOVE" 

HTAB 16 

VANNO A FINIRE." 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
GOSUB 2460 

HOME : VTAB 5: HTAB 5: PRINT "QUANDO SCAGLI UN ATOMO NELLA " 

: CALL - 922: PRINT "SCATOLA NERA, SARA*_" 

CALL - 922: HTAB 15: PRINT "ASSORBITO": CALL - 922: HTAB 1 
5: PRINT "RIFLESSO": CALL - 922: HTAB 12: PRINT "O RESPINTO 


GOSUB 2460 

HOME : PRINT "L'ATOMO E* ASSORBITO SE SPARI": CALL - 922: P 
RINT "DIRETTAMENTE A UN ATOMO NELLA SCATOLA." 

VTAB 5: GOSUB 1610: HTAB 14: VTAB 9: PRINT "*": INVERSE : HT 
AB 14: VTAB 14: PRINT "3" 

GOSUB 2470 
QQ = 10: GOSUB 2480 
FOR K - 1 TO 1000: NEXT 
GOSUB 2460 

HOME : PRINT "L'ATOMO ATTRAVERSERA' LA": PRINT "SCATOLA SE N 
ON INCONTRA UN ATOMO." 

(Continua) 


C Colonna della supposta posizione 
deH'atomo nascosto. 

CO Numero delle congetture esatte. 
CX Coordinata X temporanea dell’a- 
tomo nascosto. 

CY Coordinata Y temporanea dell’a- 
tomo nascosto. 

CX( ) Cambiamento in X (compren¬ 
de la direzione). 

CY( ) Cambiamento in Y (compren¬ 
de la direzione). 

DI Fattore di difficoltà per il calcolo 
dei punti. 

FF Avvertimento per lo spostamen¬ 
to del primo atomo lanciato. 

N Numero degli atomi nascosti. 

P La posizione di stampa per un ato¬ 
mo su un lato del riquadro. 

PP Spazio di partenza per l’atomo 
lanciato nella dimostrazione. 

PT Punti della partita. 

QQ Ultimo spazio al quale l'atomo 
lanciato si sposta nella dimostra¬ 
zione. 

R Numero di riga supposto per la 
posizione delfatomo nascosto. 

RR Passi di aumento o diminuzione 
per il moto dell'atomo nella dimo¬ 
strazione. 

S Lato dal quale il giocatore lancia 
l'atomo. 

TT Fattore di calcolo per il lato 
quando l'atomo lanciato cambia dire¬ 
zione. 

TX Coordinata X temporanea dell'a¬ 
tomo lanciato. 

TY Coordinata Y temporanea dell'a¬ 
tomo lanciato. 

X Coordinata X delfatomo lanciato. 
Y Coordinata Y dell’atomo lanciato. 
XD Direzione X e distanza per lo 
spostamento dell’atomo lanciato. 

YD Direzione Y e distanza per lo 
spostamento dell’atomo lanciato. 

ZX$ Descrizione dei risultati quando 
l’atomo è lanciato nella scatola. 

Caratteristiche speciali 
del programma 

La linea 130 gestisce i due livelli 
di gioco: dà un fattore di difficoltà 1 
quando il giocatore vuole nascondere 
da uno a quattro atomi nella scatola 
nera, un fattore di difficoltà 2 quando 
sono nascosti nella scatola da cinque 
a otto atomi. Il fattore è usato nelle 
formule che si trovano nelle linee 
370, 1350 e 1410 al fine di calcolare 
i punti guadagnati o perduti dal gio¬ 
catore. 

Le linee 490-560 impiegano un’in¬ 
teressante tecnica per rendere possibi¬ 
le tener traccia delle direzioni che il 
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1980 

1990 

2000 

2010 

2020 

2030 

2040 


2050 

2060 

2070 

2080 

2090 

2100 


2110 

2120 

2130 

2140 

2150 

2160 


2170 

2180 

2190 


2200 

2210 

2220 

2230 

2240 

2250 

2260 


2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

2360 


2370 

2380 

2390 

2400 

2410 


2420 

2430 

2440 

2450 

2460 

2470 

2480 


2490 


2500 

2510 

2520 

2530 

2540 


VTAB 5: GOSUB 1610: HTAB 18: VTAB 9: PRINT INVERSE : HT 

AB 14: VTAB 14: PRINT n 3" 

GOSUB 2470 

QQ = 6: GOSUB 2480 

VTAB 5: HTAB 14: FLASH : PRINT "3": NORMAL 
FOR K = 1 TO 1000: NEXT 
GOSUB 2460 

HOME : PRINT "L'ATOMO CHE SCAGLI E' RIFLESSO": PRINT "A SINI 
STRA QUANDO SI AVVICINA A UN": PRINT "ATOMO IN DIAGONALE ALL 
A SUA DESTRA." 

VTAB 5: GOSUB 1610: HTAB 16: VTAB 9: PRINT INVERSE : HT 

AB 14: VTAB 14: PRINT "3" 

GOSUB 2470 

QQ = 10: GOSUB 2480 

QQ = 9:RR = - 1 :PP - 13: GOSUB 2490 

FOR K = 1 TO 1000: NEXT : NORMAL : GOSUB 2460 

HOME : PRINT "L'ATOMO CHE SCAGLI E* RIFLESSO": PRINT "A DEST 

RA QUANDO SI AVVICINA A UN": PRINT "ATOMO IN DIAGONALE ALLA 

SUA SINISTRA." 

VTAB 5: GOSUB 1610: HTAB 12: VTAB 9: PRINT INVERSE : HT 

AB 14: VTAB 14: PRINT "3" 

GOSUB 2470 

QQ = 10: GOSUB 2480 

QQ = 25 :RR = 1 :PP = 15: GOSUB 2490 

FOR K = 1 TO 1000: NEXT : NORMAL : GOSUB 2460 

HOME : PRINT "L'ATOMO CHE SCAGLI E' RESPINTO": PRINT "SE E' 

CONTRO UNA PARETE E": PRINT "SPARI NELLA SCATOLA ACCANTO A E 

SSO." 

VTAB 5: GOSUB 1610: HTAB 12: VTAB 13: PRINT INVERSE : H 

TAB 14: VTAB 14: PRINT "3" 

GOSUB 2470 

HTAB 14: VTAB 13: PRINT " ": FOR J = 1 TO 500: NEXT : NORMAL 
: HTAB 14: VTAB 13: PRINT " ": HTAB 14: VTAB 14: FLASH : PR 
INT "3" 

FOR K = 1 TO 1000: NEXT : NORMAL : GOSUB 2460 

HOME : PRINT "CON PIU' DI UN ATOMO NELLA SCATOLA": PRINT "DI 

VENTA INTERESSANTE." 

VTAB 5: GOSUB 1610: HTAB 12: VTAB 9: PRINT HTAB 22: VTA 

B 9: PRINT INVERSE : HTAB 14: VTAB 14: PRINT "3" 

GOSUB 2470 

QQ - 10: GOSUB 2480 

QQ = 20 :RR = 1:PP = 15: GOSUB 2490 

FOR K = 11 TO 13: INVERSE : HTAB 20: VTAB K: PRINT " ": FOR 
J = 1 TO 500: NEXT : NORMAL : HTAB 20: VTAB K: PRINT " NE 
XT K: FLASH : HTAB 20: VTAB 14: PRINT "6" 

FOR K = 1 TO 1000: NEXT K: NORMAL : GOSUB 2460 
HOME : VTAB 7 

PRINT "QUANDO SEI PRONTO A INDOVINARE DOVE" 

PRINT : PRINT "UN ATOMO E' NASCOSTO_" 

PRINT : PRINT "TI SARA' CHIESTO IL NUMERO DI RIGA." 

PRINT : PRINT "(ORIZZONTALE) SPEED= 100: INVERSE : FOR 

ZZ = 1 TO 20: PRINT " NEXT : SPEED= 200: NORMAL : PRINT 

GOSUB 2460 

HOME : VTAB 7: PRINT "POI TI SARA' CHIESTO IL..." 

PRINT : PRINT "NUMERO DI COLONNA DELL'ATOMO NASCOSTO." 

PRINT : PRINT "(VERTICALE)";: INVERSE : SPEED= 100: FOR ZZ - 
11 TO 20: HTAB 13: VTAB ZZ: PRINT " ": NEXT : SPEED= 200: N 
ORMAL 
GOSUB 2460 

HOME : VTAB 7: PRINT "IL SISTEMA DI PUNTI E'..." 

VTAB 10: HTAB 18-: PRINT "1-4 ATOMI"; SPC ( 3); "5-8 ATOMI" 

HTAB 18: PRINT "-"; SPC ( 3);" -" 

PRINT : PRINT "SPARA NELLA SCATOLA";: HTAB 21: PRINT - 20; 
SPC( 9); - 10: PRINT : PRINT "NON HAI INDOVINATO";: HTAB 20: 
PRINT - 100; SPC( 8); - 200 

PRINT : PRINT "HAI INDOVINATO";: HTAB 21: PRINT 500; SPC( 8) 

; 1000 : GOSUB 2460 

HOME : VTAB 10: PRINT "VUOI LA RIPETIZIONE": PRINT : PRINT " 
DELLA SPIEGAZIONE? S O N";: INPUT A$: IF LEFTS (A$,l) = "S 
" THEN 1790 
SPEED= 255: RETURN 
REM 

VTAB 24: HTAB 5: INPUT "PREMI RETURN PER CONTINUAREPP$: 
RETURN 

VTAB 20: PRINT "PREMI IL TASTO 'S' PER SPARARE...";: GET PP$ 
: RETURN 

FOR K = 13 TO QQ STEP - 1: INVERSE : HTAB 14: VTAB K: PRINT 
" ": FOR J = 1 TO 250: NEXT J: HTAB 14: VTAB K: NORMAL : PR 
INT " ": NEXT K: RETURN 

FOR K = PP TO QQ STEP RR: HTAB K: VTAB 10: INVERSE : PRINT " 
": FOR J = 1 TO 250: NEXT J: NORMAL : HTAB K: VTAB 10: PRIN 
T " ": NEXT K 
IF QQ = 20 THEN 2540 
IF RR = 1 THEN HTAB 26: GOTO 
HTAB 8 

VTAB 10: FLASH : PRINT "5" 

RETURN 


2530 


Checksum dei listato 1 

NOME FILE: 

SCATOLA NERA 

TIPO: A 


LUNGHEZZA: 

1491 

CHECKSUM : 

70 


computer deve controllare per le ri¬ 
flessioni e gli assorbimenti. 

Dato che queste direzioni dipendo¬ 
no dal lato dal quale l’atomo viene 
lanciato, si adopera un loop per giun¬ 
gere ai numeri esatti nella lista dei 
dati per tutti i lati possibili della sca¬ 
tola. 

La linea 710 usa un algoritmo di 
resto per calcolare il lato sul quale 
ratomo emerge dalla scatola. Quan¬ 
do i lati sono uguali a 1, 2, 3 e 4 la 
formula darà rispettivamente come ri¬ 
sultato 3, 0, 1 e 2. Si deve usare 
un’istruzione IF per cambiare lo 0 in 
4. Questo algoritmo elimina la ne¬ 
cessità di più istruzioni IF. 

La linea 1670 impiega la stessa 
tecnica per calcolare il lato dal quale 
l'atomo emerge a un cambio di dire¬ 
zione. La variabile TT è posta ugua¬ 
le a 1 quando l’atomo viene riflesso 
a sinistra! E' posta uguale a 3 quan¬ 
do l'atomo è riflesso a destra. Il va¬ 
lore di S e TT sono usati a linea 
1670 per determinare il nuovo valo¬ 
re della variabile S. 

I loop variabili che si trovano nel¬ 
la subroutine delle linee 2480 e 
2490 accorciano parecchio la sezione 
delle regole e delle istruzioni. Essi 
sono utilizzati in ogni fase delle i- 
struzioni. 

I possibili 
miglioramenti 

Si potrebbe realizzare un'interes¬ 
sante variante della Scatola nera in¬ 
grandendo il riquadro e facendo ruota¬ 
re intorno a un nucleo centrale elet¬ 
troni nascosti. Il giocatore cerchereb¬ 
be di determinare la posizione di o- 
gni nucleo sparando elettroni nella 
scatola. 

Gli elettroni scagliati potrebbero 
essere riflessi dagli elettroni rotanti 
intorno al nucleo oppure intrappola¬ 
ti dal nucleo. 

Un'altra variante molto promet¬ 
tente del gioco potrebbe consistere 
nell'aggiunta di una terza dimensio¬ 
ne alla Scatola nera. Così facendo si 
creerebbe sicuramente qualche inte¬ 
ressante problema di programmazio¬ 
ne tridimensionale. 

> \ 

Questo programma è disponibile 

su dischetto. L’elenco, i prezzi 
e le modalità d’ordine di questo 
e degli altri dischetti disponibili 
sono riportati nella rubrica 
Disk Service. 

N J 


© By Nibble e Applicando 
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CRONOMETRO 


L'orologio del sistema operativo può servire per creare nuovi accessori: 
con i bottoni dell'MS diventa un cronometro capace di registrare 
i tempi parziali al sessantesimo di secondo. 


Ferma il tempo 
quando vuoi 


L’obiettivo è quello di poter calco¬ 
lare e mostrare su video tempo tota¬ 
le e tempi parziali con una precisio¬ 
ne al decimo di secondo, ed essere in 
grado di tenere un promemoria degli 
eventi a cui si riferiscono i tempi 
parziali, con il cronometro sempre 
in funzione, così da poter avere sot- 
t'occhio le fasi di una corsa mentre 
il programma si preoccupa del tem¬ 
po finale. 

Cronometro, così si chiama il pro¬ 
gramma, consente di dare nomi ai 
tempi parziali (per esempio "auto 32 
fuori pista”) usando un edit field. So¬ 
no usati bottoni per controllare le 
funzioni del cronometro (stop, via e 
lap), e due finestre, una per il crono¬ 
metro e una per registrare i tempi 
parziali. 

La figura 1 mostra il tipico di¬ 
splay del programma, compresi i no¬ 
mi dei tempi parziali attribuiti dal 
programma (Tempo N. x) e i nomi 
definiti nell’edit field nella finestra 
del cronometro. 

Cronometro tiene correttamente i 
tempi, anche quando il display sem¬ 
bra esitare a causa degli eventi in cor¬ 
so. La precisione dell’orologio è 
mantenuta dal sistema operativo in 
tempo reale: il programma infatti si 
limita a effettuarne la lettura. 


Alcune righe del listato sono 
state spezzate per esigenze di 
impagmazione: 
quando incontrate il simbolo • 
continuate a battere SENZA 
PREMERE <return> 



Listato 1. Cronometro 



* Cronometro 

1 By Bruce R. Land - Copyright ©1986 
' By Applicando & MicroSPARC, Ine. 

' Microsoft BASIC 2.0 e 2.1 (versione binaria) 

CLEAR,7000,2000 
DEFSNG a-z 

'definizione delle costanti per usare il ciclo di clock del sist 
ema operativo 

'con precisione al sessantesimo di secondo 

TickHigh=&Hl6A : TickMed2=&Hl6B : TickMedl=&H16C : TickLow 
=&H16D 

MultHigh=2 A 24 : MultMed2=2 A l 6 : MultMedl = 2 /v 8 


Uso del programma 
e caricamento 


'inizializza gli interrupt associando i nomi delle subroutine ag • 
li eventi 

ON TIMER(1) GOSUB TimerEvent 
ON MENU GOSUB MenuEv^nt 
ON DIALOG GOSUB DialogEvent 


Per utilizzare il programma sce¬ 
gliete il formato orario che preferite, 
24 ore o 12 ore, dal menu TEMPI. 
L’altra opzione in questo menu è FI- 


TogliDialoghi 'Attende che non ci siano eventi in corso 

' definizioni delle finestre e delle costanti per le finestre 
TimeWindow=l : LapWindow=2 

(Continua) 
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NE, per terminare l’esecuzione e tor¬ 
nare in MS Basic. 

Fate partire il cronometro con il ta¬ 
sto VIA. Notate che il cronometro 
parte effettivamente quando rilasciate 
il bottone del mouse. La prima vol¬ 
ta che darete il run su un Macintosh 
128K noterete che l’ingresso in azio¬ 
ne del drive causa una leggera inaccu¬ 
ratezza nei tempi; dopo che la parte 
di codice MS Basic necessaria sarà 
presente in memoria, però, il proble¬ 
ma non si porrà più. Il cronometro 
partirà, e potrà essere fermato con il 
bottone STOP. La ripartenza azzera 
automaticamente il cronometro. 

Mentre il cronometro è in fuzione, 
basta fare un click nel bottone LAP 
per registrare un tempo parziale nel¬ 
l'apposita finestra. Il nome attribui¬ 
to al tempo parziale dipende dalle 
modifiche effettuate nell'edit field. 
Se non avete indicato alcun nome 
viene attribuita automaticamente u- 
na nuova etichetta, se invece avete 
dato l'ok nel campo Nome OK, o a- 
vete premuto return, allora verrà usa¬ 
to il nome da voi scelto. 

Il nome all’interno del campo può 
essere modificato con i tradizionali 
comandi stile MacWrite: taglia, in¬ 
colla, seleziona. 

Potere usare sia la versione bina¬ 
ria, sia quella decimale dell'MS Ba¬ 
sic 2.0 o 2.1 per battere il program¬ 
ma del listato 1. Salvate il tutto 
con il nome Cronometro. 

Come funziona 
il cronometro 

La funzione TIMES dell'MS Basic 
fornisce l'ora esatta, con precisione 
al secondo. Ottenere un tempo par¬ 
ziale al decimo di secondo è difficile. 

Tuttavia, nella parte bassa della 
memoria, ci sono quattro locazioni 
che sono incrementate ogni sessante¬ 
simo di secondo durante l’interrupt 
per la ritraccia verticale dello scher¬ 
mo video (cioè quando il raggio di e- 
lettroni che attiva i punti dello scher¬ 
mo passa velocemente dall'angolo in¬ 
feriore destro a quello in alto a sini¬ 
stra del monitor, ogni sessantesimo 
di secondo). 

Il sistema può accumulare 2 32 /60 
secondi in esse a partire dall'accensio¬ 
ne del Macintosh, che corrispondono 
a circa due anni. 

Due anni sono un po' eccessivi 
per un cronometro, così si è deciso 
di considerare solo tre byte del conta¬ 


tore, per un massimo di 2 24 /60 se¬ 
condi, circa tre giorni. 

Il programma è stato concepito 
per usare le funzioni dell’MS Basic 
in grado di rendere al meglio l'am¬ 
biente Macintosh. In particolare si è 
fatto largo uso della abilità dell'MS 
Basic di eseguire particolari subrouti¬ 
ne quando avvengono determinati e- 
venti, esterni al programma. Il co¬ 
mando ON TIMER forza il salto a u- 
na subroutine una volta per secondo, 
ed è utilizzato per aggiornare l’orolo¬ 
gio. C'è un tipo di eventi che l'MS 


Basic riconosce come dialoghi, in 
grado anch'essi di forzare chiamate a 
una subroutine. Questi eventi segna¬ 
lano al programma che l'utente ha 
fatto qualcosa che richiede immedia¬ 
tamente attenzione (per esempio un 
click con il mouse). 

Il programma usa le funzioni di 
dialogo per controllare quando è sta¬ 
to premuto un bottone e quando l'e- 
dit field è stato completato. 

L'abilità del Mac di riconoscere 
questi eventi porta a uno stile di pro¬ 
grammazione detto appunto event 


TipoDocumento=l 

PushButton=l : Selezionato=2 : NonSelezionato=l : Inatt • 

ivo=0 

Box=l : Sinistra=l 

WINDOW LapWindow,"Tempi parziali",(256,50)-(500,300),TipoDocumento 
WINDOW TimeWindow,"Cronometro",(1,50)-(250,300),TipoDocumento 

'Definizione dei controlli nella TimeWindow per le funzioni del 
'cronometro. Il bottone LAP memorizza i tempi tra un click e l'a • 
lt ro 

'eseguito al suo interno. LapLabel permette di dare nomi ai temp • 
i parziali 

BUTTON 1, Selezionato, "STOP",(30,220)-(100,250),PushButton 
BUTTON 2, Nonselezionato, "VIA", (105,220)-(150,250),PushButton 
BUTTON 3, Nonselezionato, "Lap", (155,220)-(200,250),PushButton 
BUTTON 4, Nonselezionato, "Nome OK", (130,150)-(200,165), PushBu • 
tton 

EDIT FIELD 1, "Tempo parziale", (25,150)-(125,165), Box, Sinistra 

'definizione dei menu 
attivo=l 

MENU 6,0,attivo,"Tempi" 'Titolo del menu 

MENU 6,1,attivo,"Fine" 

MENU 6,2,attivo,"12 ore" 'Orologio a 12 ore 

MENU 6,3,attivo,"24 ore" 


TIMER ON 'attivazione degli interrupt 

DIALOG ON 
MENU ON 

'Quando non si verifica alcun evento aggiorna l'orologio 
'Nota: il cronometro funziona perfettamente anche se altri 
'eventi ostacolano l'aggiornamento della finestra! 
vero=-l : falso=0 

InFunzione=falso 'Alla partenza il cronometro è disatt • 

ivato 

StartTicks=0 

Bold=l : Geneva=l 

LOCATE 2,5 : PRINT "Ora esatta:" 

LOCATE 5,5 : PRINT "Cronometro:" 

CALL TEXTFACE(Bold) 

WHILE vero 'Nota: questo è un ciclo infinito 

WHILE InFunzione 'Quando GO è stato premuto 

GOSUB TickCount 'Lettura dell'orologio al 60/sec 

FinestraAttuale=WINDOW(1) 'Salva lo stato della fi • 

nestra 

WINDOW OUTPUT TimeWindow 

LOCATE 5,17 : CALL TEXTFACE(Bold) 

PRINT USING "#####.#"; (ticks-StartTicks)/60 
WINDOW OUTPUT FinestraAttuale 

WEND 

WEND 

DialogEvent: 'E' stato premuto un bottone o un edit field 

EventType=DIALOG(0) 

IF EventType=l THEN ButtonEvent 
IF EventType=6 THEN EditEvent 
RETURN 

ButtonEvent: 

ButtonId=DIALOG(1) 

ON Buttonld GOSUB StopButton,GoButton,LapButton,EditEvent 
RETURN 

StopButton: 

InFunzione=falso 'Ferma il cronometro 
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driven. Il programma attende che l’u¬ 
tente faccia qualcosa, risponde alla 
sua azione, poi attende che avvenga 
qualcosa d'altro. Nel nostro caso, 
quando non avviene nulla, il pro¬ 
gramma esegue l’aggiornamento del¬ 
l'orologio (se è attivato), altrimenti 
attende in un ciclo WHILE-WEND 
infinito. 

Ogni secondo il comando ON TI¬ 
MER chiama la routine TimerEvent 
per aggiornare l'ora del giorno sul vi¬ 
deo. Se premete un bottone o il ta¬ 
sto return nell'edit field dei tempi 


parziali, il comando ON DIALOG 
trasferisce immediatamente l'esecu¬ 
zione del programma alla subroutine 
DialogEvent per scoprire quale even¬ 
to è accaduto, e per rispondere corret¬ 
tamente a esso. 

Variabili e 

comandi di controllo 

Il comando DEFSGN fa sì che tut¬ 
te le variabili siano in singola preci¬ 
sione. Anche se questo è il formato 
standard, definire all'inizio del pro- 


RETURN 

GoButton: 

GOSUB TickCount 
StartTicks=ticks 
LapTicks=ticks 
ContaLap=l 
mpi parziali 

InFunzione=vero 

RETURN 


'Legge l'orologio del sistema 
'Inizializza il conteggio 
'Inizializza i tempi parziali 

'Inizializza i contatore dei te • 

'Partenza del cronometro 


LapButton: 

IF InFunzione=falso THEN RETURN 'Se il cronometro è fermo • 
niente parziali 

GOSUB TickCount 

TIMER STOP 'Disabilita interrupt per avere u • 

na stampa corretta 

FinestraAttuale=WINDOW(1) 

WINDOW OUTPUT LapWindow 
' Crea un nome per i tempi parziali 

IF LapIdFlag=falso THEN LapId$="Tempo N." + STRS(ContaLap) 
PRINT LapIdS;TAB(20) 

PRINT USING "#####.#"; (ticks-LapTicks)/60 
LapTicks=ticks 

ContaLap=ContaLap+l : LapIdFlag=falso 

WINDOW OUTPUT FinestraAttuale 
TIMER ON 
RETURN 

EditEvent: 

LapId$=EDIT$(1) 'Legge il nome del tempo parziale 

LapIdFlag=vero 
RETURN 

TimerEvent: 'Questa routine è eseguita ogni secondo 

FinestraAttuale=WINDOW(1) 

WINDOW OUTPUT TimeWindow 
ModTIME$=TIME$ 

'Controlla se il formato delle ore è a 12 o 24 

IF (VAL(LEFT$(ModTIMES,2))>12) AND Flagl2ore THEN ModTIME$=S • 
TR$(VAL(LEFT$(ModTIME$,2))-12)+RIGHTS(ModTIMES,6) 

LOCATE 2/18 : CALL TEXTFACE (Bold) 

PRINT ModTIMES 

LOCATE 5,18 ' Posizione dei tempi parziali in caso di con • 

flitto 

WINDOW OUTPUT FinestraAttuale 
RETURN 

MenuEvent: 

IF MENU(0) <> 6 THEN RETURN 
IF MENU(1)=1 THEN MENU RESET:END 
tina i menu 

IF MENU(1)=2 THEN Flagl2ore=vero 
IF MENU(1)=3 THEN Flagl2ore=falso 
mato 12 ore 
MENU 
RETURN 

TickCount: 'Calcola i secondi dal ciclo di clock del sistem • 

a operativo 

ticks=MultMed2*PEEK(TickMed2)+MultMedl*PEEK(TickMedl)+ PEEK(T • 
ickLow) 

RETURN « 

SUB TogliDialoghi STATIC 'Attende che non ci siano eventi in 
corso 

WHILE DIALOG(0)<>0 
WEND 


'Scelta dal menù 
'Ritorna al basic e ripris • 

'Flag del formato 12 ore 
'Cancella il flag del for • 


gramma le variabili è una saggia pra¬ 
tica. Le variabili esadecimali nelle ri¬ 
ghe successive sono gli indirizzi di 
memoria delle locazioni dei contato¬ 
ri al sessantesimo di secondo.Thick 
High è il byte alto, incrementato u- 
na volta ogni tre giorni, ThickLow 
è l'indirizzo del byte basso, che vie¬ 
ne aggiornato sessanta volte al se¬ 
condo. I tre moltiplicatori che seguo¬ 
no sono usati per trasformare il nu¬ 
mero di sessantesimi di secondo in 
un valore digeribile dall’MS Basic. 

I successivi tre comandi (ON TI¬ 
MER GOSUB, ON MENU GOSUB 
e ON DIALOG GOSUB) dicono al 
Basic dove andare nel caso si verifi¬ 
chi un evento esterno al programma. 
Questi comandi, in pratica, non ese¬ 
guono immediatamente le subrouti¬ 
ne. Finché tutte le finestre e i con¬ 
trolli non sono disegnati, il timer e 
i dialoghi-eventi sono disattivati. I 
comandi TIMER ON, DIALOG 
ON e MENU ON metteranno effetti¬ 
vamente in azione i controlli. 

Sono usate due finestre. L'ordine è 
importante poiché è l'ultima finestra 
usata a rimanere attiva, nel nostro ca¬ 
so la finestra dei tempi. Le definizio¬ 
ni dei bottoni si applicano alla fine¬ 
stra attiva, quella dei tempi, e pro¬ 
prio in essa appaiono durante l'esecu¬ 
zione del programma. Le dimensioni 
di ciascun bottone sono state deter¬ 
minate per tentativi; il Basic si 
preoccupa di centrare il nome del bot¬ 
tone all'interno del rispettivo rettan¬ 
golo. 

L'ultimo controllo di Cronometro, 
l'edit field, serve a dare nomi ai tem¬ 
pi parziali. Tutte le funzioni di edit, 
basckspace, taglia e incolla sono 
controllate dall'MS Basic. Se scrive¬ 
te programmi destinati ad altri uten¬ 
ti, ricordate che l’edit field è la mi¬ 
gliore funzione per dialoghi tramite 
tastiera. 

Come uscire 
senza sbagliare 

Un menu è stato creato apposita¬ 
mente per dimostrare come uscire 
correttamente dal programma, e per 
consentire di determinare il formato 
di lavoro dell'orologio (12 o 24 ore). 

I cicli concatenati WHILE-WEND 
sono il corpo principale del program¬ 
ma. Notate che quello più esterno è 
infinito. Il programma può abbando¬ 
narlo solo se interviene qualche even¬ 
to esterno che forza l’esecuzione di 
un altro blocco del programma. Gli 
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NEW FOR APPLE - IBM 


PRODOTTI PER ACQUISIZIONE DATI E MISURE 
PER UTILIZZO SCIENTIFICO-INDUSTRIALE 


SCHEDE PLUG-IN PER APPLE- IBM PC/XT E COMPATIBILI 

Schede di I/O parallele fino a 24 porte programmabili, 
Schede AD/DA converters 8 e 12 bits, da 2 a 16 canali con 
possibilità di avere ingressi differenziali, a guadagno pro¬ 
grammabile. Tempi di conversione fino a 25 microsecon¬ 
di, uscite a reed relais, versioni con reai time clock e 
batteria tampone. Disponiamo inoltre di prodotti uso la¬ 
boratorio quali: 

Sistemi di sviluppo per 6502, prova integrati. Serie TTL- 
MOS, programmatori di eproms, schede per encoder ot¬ 
tici, schede custom, ecc. 



PRODOTTI MODULARI A RACK PER APPLE • IBM ■ HP • DEC 
- COMMODORE ECC. 

Versioni dedicate o universali in RS232 - IEEE 488. 

40 Moduli tipo Eurocard disponibili a seconda delle ap¬ 
plicazioni; ogni rack può ospitare 9 moduli differenti ed 
essere utilizzato su elaboratori diversi sostituendo sem¬ 
plicemente il controller. 

APPLICAZIONI: Stepper motor controllers - Shaft eneo- 
ders - Trasduttori di pressione - Strain gauges - Celle di 
carico - Amplificatori di termocoppie - Profilometri - Stru¬ 
mentazione medica - Trasduttori di posizione ecc. 


PRODOTTI PER ACQUISIZIONE IMMAGINI 
DA TELECAMERA E/0 FONTI VIDEO 


VERSIONI PER APPLE E COMPATIBILI 

TELERASTER 256x192 Pixel con 64 toni di grigio o 
4 in pseudo colore 
IMAGE III 512x512 Pixel con 64 toni di grigio o 
colore reale 

VERSIONI PER PC/XT IBM E COMPATIBILI 

DIGICON 256x256 Pixel 256 toni di grigio o 
16 in pseudo colore 
SERIE OCULUS 512x512 Pixel da 1 a 128 toni di grigio o 
colore reale 


VERSIONI VME BUS E A RACK 
ADATTABILI A QUALUNQUE 
ELABORATORE 



APPLICAZIONI: Robotica - Riconoscimento immagini - 
Termografia - Ecografia - Misure - Archivio Immagini • Ri¬ 
conoscimento caratteri - Teleconferenze - Grafica pitto¬ 
rica - Schede tecniche con immagini miscelate a testi, 
calcolo aree, analisi da microscopio ecc. 

ACCESSORI: Telecamere, supporti verticali, stampanti al¬ 
ta risoluzione, stampanti colore, stampanti laser, Polaroid 
palette, plotters ecc. 

LA PERTEL PUÒ FORNIRE HARDWARE E PACKAGES APPLI¬ 
CATIVI SU RICHIESTA SPECIFICA, PER INFORMAZIONI: 


VIA ORMEA, 99 - CAP. 10126 TORINO 
TEL. Oli - 655.865 - 651.574 (service) 
TELEX 224243 PERTEL I 


APPLE - IBM SONO MARCHI REGISTRATI 


a 


t file Edit Se<»(h Run UJindoms Tempi 



Il display del programma. Sulla destra i nomi dei parziali stampati 
dall'edit field. 


eventi esterni possono essere i dialo¬ 
ghi, il timer, la selezione di un me¬ 
nu o lo STOP dato dall’utente (con 
<Command> . ). Finché non accade 
qualcosa il programma prosegue il 
suo loop e aggiorna il cronometro 
o, se non è attivato, attende. 

Notate che questi eventi esterni 
possono accadere in qualsiasi mo¬ 
mento e possono creare problemi di 
programmazione non indifferenti e 
difficili da individuare. Per esempio, 
se un evento accade tra il comando 
LOCATE e il successivo PRINT si 
potrebbe ottenere una stampa del cro¬ 
nometro in posizione errata, perché 
la routine TimerEvent modifica la 
posizione di stampa. Questo è stato 
corretto facendo in modo che Timer 
Event ricrei la posizione di stampa 
della routine principale. 

Come lavora 
routine per routine 

DialogEvent è eseguita quando 
è premuto un bottone, o il tasto re¬ 
turn, in un edit field. Queste due pos¬ 
sibilità trasferiscono il controllo a 
ButtonEvent o a EditEvent. 

La subroutine ButtonEvent de¬ 
termina quale bottone è stato premu¬ 
to e salta alla subroutine appropria¬ 
ta. StopButton ferma il cronome¬ 
tro dando a InFunzione il valore fal¬ 
so. GoButton inizializza il crono¬ 
metro, cancella i tempi parziali e fa 
partire il cronometro stesso (InFun- 
zione=vero), così si inizia la visua¬ 
lizzazione dei tempi, quindi ritorna 


il controllo al loop principale. 

LapButton controlla che il cro¬ 
nometro stia effettivamente funzio¬ 
nando, e nel caso legge l’etichetta 
dei tempi parziali e la stampa nella 
finestra corrispondente, accanto al 
tempo trascorso dall’ultima volta 
che si è premuto il bottone LAP. La 
subroutine EditEvent viene chia¬ 
mata quando si preme il tasto Nome 
OK o si preme return; immagazzina 
il nome e posiziona un flag per in¬ 
formare LapButton che un nuovo no¬ 
me è stato battuto. 

La subroutine TimerEvent è ese¬ 
guita una volta per secondo. Stam¬ 
pa il tempo attuale nel formato pre¬ 
scelto, 12 o 24 ore. La subroutine 
MenuEvent controlla la selezione 
del formato orario e il termine del 
programma, poi passa all’MS Basic 
le altre chiamate ai menu. La routi¬ 
ne TickCount assembla i byte del 
contatore del sistema operativo in 
un numero Basic ogni volta che il 
programma (in pratica ogni secondo) 
richiede il tempo esatto. La subrouti¬ 
ne TogliDialoghi elimina ogni e- 
vento generato mentre si attende l'i¬ 
nizio del programma (un click acci¬ 
dentale sul mouse all'interno di un 
bottone). 


Questo programma è disponibile 
su dischetto. L’elenco, i prezzi 
e le modalità d’ordine di questo 
e degli altri dischetti disponibili 
sono riportati nella rubrica 
Disk Service. 

^_ __ J 


© By Nibble e Applicando 
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Sei proprio sicuro 
che il tuo computer 
sia sempre al sicuro? 


Incidenti di trasporto, furti anche dall'auto o dalla camera 
d'albergo, cortocircuiti, bevande rovesciate sulla tastiera, 
bambini o inesperti che ci mettono le mani... Ecco i pericoli 
che correva il tuo computer prima della polizza Applicando. 


Condizioni generali di assicura¬ 
zione: 

1) Premessa : a) l'adesione alla 
presente polizza è riservata ai pro¬ 
prietari di un Personal Computer il 
cui valore stabilito come alla Condi¬ 
zione 6) sia superiore a L. 
2.500.000 Iva compresa; b) l'adesio¬ 
ne alla presente polizza da parte dei 
proprietari di personal computer av¬ 
verrà a mezzo invio di apposita car¬ 
tolina con il relativo importo di pre¬ 
mio; c) l'intestatario della cartolina 
sarà considerato a tutti gli effetti co¬ 
me l’Assicurato; d) la garanzia sarà 
operante dalle ore 24 del giorno di 
spedizione della cartolina, risultante 
dal timbro postale. La copertura a- 
vrà durata un anno, sempre che la 
data di inizio della garanzia sia com¬ 
presa nel periodo di validità della 
convenzione. 

Garanzie e condizioni 

2) Sez. I - Danni materiali. Deri¬ 
vanti da: a) incendio, opera di spe¬ 
gnimento e salvataggio, fulmine, e- 
splosione, scoppio, implosione; b) a- 
cqua e liquidi in genere, inondazio¬ 
ne, alluvione, trombe, uragani, ge¬ 
lo, ghiaccio, neve, grandine, valan¬ 
ga, caduta massi e altri simili even¬ 
ti; c) superamento del muro del suo¬ 
no, caduta di aeromobili o cose da 
essi trasportate; d) corto circuito, 
variazione di corrente, sovratensio¬ 
ne arco voltaico, deficienze di isola¬ 
mento, effetti di elettricità statica, 
induzione; e) imperizia, negligen¬ 
za, errata manovra, nonché azioni 
dolose e colpose in genere; f) tra¬ 


sporti e smontaggi connessi con la¬ 
vori di pulizia o di manuten¬ 
zione; g) furto e rapina; h) terremo¬ 
to, maremoto o eruzioni vulcani¬ 
che; i) persone che prendono parte 
a tumulti popolari, scioperi, som¬ 
mosse e che perpetrino individual¬ 
mente o in associazione atti di terro¬ 
rismo o sabotaggio verificatisi in 
occasioni di serrate. 

3) Sez. II - Responsabilità Civile 
Terzi: L’assicurazione si intende i- 
noltre prestata per la Responsabili¬ 
tà Civile derivante all'Assicurato 
dalla proprietà e dall’uso personale 
del computer assicurato, identifica¬ 
to nel certificato di assicurazione. I 
massimali di garanzia si intendono 
fissati in: L. 100.000.000 per sini¬ 
stro con il limite di L. 100.000.000 
per ciascuna persona deceduta o 
che abbia subito lesioni personali 
L. 100.000.000 per danni a cose e/o 
animali. 

4) Esclusioni: La Società non è 
obbligata per i danni dovuti a: - do¬ 
lo dell’Assicurato; - corrosione, de¬ 
perimento, logoramento che siano 
conseguenza del normale uso o fun¬ 
zionamento o causati dagli effetti 
graduali degli agenti atmosferici; - 
per i quali deve rispondere il forni¬ 
tore, venditore o locatore degli enti 
assicurati per legge o per contratto 
o per inadeguata manutenzione; - 
causati da difetti di materiale o di 
costruzione che esistevano già all'at¬ 
to della stipulazione della polizza e 
erano a conoscenza dell'Assicurato;- 
causati direttamente o indirettamen¬ 


te da avvenimenti bellici, sommos¬ 
se militari, invasioni, adozione di 
misure da parte di potenze straniere, 
rivoluzione, ribellione, insurrezio¬ 
ne, assunzione ousurpazione di pote¬ 
re di carattere militare, sequestri; - 
verificatisi in occasione di esplosio¬ 
ne, radiazione nuclerare o di conta¬ 
minazione radioattiva; - uso impro¬ 
prio del bene (mancato rispetto del¬ 
le norme di impiego dettate dal co¬ 
struttore); - danni estetici (quelli in¬ 
teressanti l’involucro esterno che 
non sia conseguenza di un danno ri¬ 
sarcibile a termine della presente po¬ 
lizza); - guasti casualmente ricondu¬ 
cibili a interventi, a riparazioni e/o 
modifiche effettuate da un centro 
non autorizzato dalla casa costruttri¬ 
ce della macchina; - danni indiretti 
in genere. 

5) Operatività della garanzia: a) 
la garanzia è operante solamente se 
gli enti assicurati sono ubicati pres¬ 
so il domicilio dell’Assicurato o in 
luoghi diversi da questi se in posses¬ 
so dell’Assicurato; b) la garanzia è 
pure efficace se i beni si trovano sul¬ 
l'autovettura in uso all'Assicurato, 
salvo i seguenti casi: - qualora l'au- 


Sl! Desidero assicurare i miei/il mio computer, in¬ 
viatemi a stretto giro di posta il certificato emesso dal¬ 
la Ras. L'assicurazione avrà valore a decorrere dalle 
ore 24 del giorno di spedizione della mia adesione. 
Per la data fa fede il timbro postale. 

COGNOME_:_ 



NOME. 


INDIRIZZO. 


CAP- 


Città 


-PROV. 


Assicuro i/il seguente personal: 
Marca e Modello 


N. di matricola 


Valore (Iva compresa) 


Con le seguenti periferiche (stampanti, video, drive, hard-disk, ecc.): 

Marca e Modello N. di matricola Valore (Iva compresa) 


In caso di spazio insufficiente ricopiate su un foglio il tagliando indicando i prodotti che intendete assicurare. 

Per un totale complessivo di Lire . su cui pa¬ 

go il premio calcolato in base alla tabella riportata qui sopra. Allego assegno non trasferibile di 
Lire.intestato a Editronica srl, Corso Monforte 39, 20122 Milano. 


tovettura venga lasciata incustodita 
dalle ore 22 alle ore 6; - qualora 
l'autovettura regolarmente chiusa a 
chiave venga lasciata incustodita 
dalle ore 6 alle ore 22 e gli enti assi¬ 
curati non opportunamente occulta¬ 
ti nel bagagliaio; c) limitatamente 
ai danni di rottura la garanzia è effi¬ 
cace solamente nel caso questi sia¬ 
no dovuti a un incidente in cui ri¬ 
manga coinvolto anche il veicolo 
in uso dell'Assicurato che trasporta¬ 
va i beni assicurati; d) per gli enti 
per i quali non è stato stipulato il 
contratto di manutenzione e/o assi¬ 
stenza con la casa costruttrice e/o 
ditte di essa mandatarie qualora l'en¬ 
te richieda per norma del fornitore 
detto contratto, la società non ri¬ 
sponde dei danni verificatisi in con¬ 
seguenza di guasto meccanico e/oe- 
lettrico salvo che l'Assicurato pro¬ 
vi che tale guasto sia causato da e- 
vento esterno agli enti assicurati o 
da incendio originato da uno di que¬ 
sti enti. 

6) Somma Assicurata: La somma 
assicurata per ciascun ente deve cor¬ 
rispondere al costo di rimpiazzo, os¬ 
sia al prezzo di listino della casa co¬ 
struttrice ed escluso ogni sconto o 
prezzo di favore di un ente nuovo, 
eguale o equivalente per caratteristi¬ 
che, prestazioni e rendimento eco¬ 
nomico. 

7) Premio: Per ogni singola appli¬ 
cazione è stabilito un premio forfet¬ 
tario omnicomprensivo così calco¬ 
lato: 


Somma assicurata 

Premio 

da 

2.500.000 


a 

3.000.000 

50.000 

da 

3.000.000 


a 

5.000.000 

65.000 

da 

5.000.000 


a 

7.000.000 

80.000 

da 

7.000.000 


a 

10.000.000 

100.000 

da 

10.000.000 


a 

15.000.000 

120.000 

da 

15.000.000 


a 

20.000.000 

150.000 


8) Franchigia. Per ogni e qualsia¬ 
si danno che colpisca gli enti assicu¬ 
rati è stabilita una franchigia di: L. 
50.000 per somma assicurata fino a 
L. 5.000.000; L. 100.000 per som¬ 
ma assicurata superiore a L. 
5.000.000. Per sinistri causati da e- 
venti come ai punti g) ed h) delle ga¬ 
ranzie prestate, la Società liquiderà 
i danni sotto deduzione di uno sco¬ 
perto pari al 20% della somma assi¬ 
curata, col minimo delle franchigie 
sopra stabilite. 

9) Rinvio alle norme di legge. 
Per tutto quanto non è qui diversa- 
mente regolato, valgono le norme 
di legge. 


e applicando vi mettono al sicuro 

































GESTIONE DOMESTICA 


Come stanno la dispensa e il congelatore? Sempre ben forniti, 
ma non troppo, senza vuoti e senza sprechi? Oppure qualche vizietto 
di gestione si fa sentire? Per ottimizzare i vostri acquisti e scorte, 
l'ideale è un database intelligente e molto, molto massaio. 



Un genio al 
supermark 


Non c’è quartiere senza il suo bra¬ 
vo supermercato, sempre che non ce 
ne siano due o più. E, in obbedienza 
allo stesso processo, non c'è casa, o 
quasi, senza congelatore. Cocicché 
fare la spesa non significa più andare 
tutte le sere dal droghiere e dal frutti¬ 
vendolo, ma, ogni due settimane, re¬ 
carsi con un bel bagagliaio da riem¬ 
pire al più vicino supermercato. 

Gli acquisti dovrebbero essere così 
ottimizzati. Dovrebbero. In realtà 
succede anche più spesso di prima di 
scoprire che in casa manca il burro, 
o di trovare nel terzo scomparto un 
surgelato ormai fuori scadenza. 

Colpa di una gestione approssima¬ 
tiva, che le grandi quantità di viveri 
non fanno che enfatizzare nelle sue 
conseguenze negative.’ Con l'estate, 
poi, i problemi si accentuano più 
che mai: molti negozi chiudono e la 
grande spesa al supermercato diviene 
proprio indispensabile. E orribile sa¬ 
rebbe, in piena canicola, scoprirsi 
senza più bibite in frigo... 

Con questo comodo programma 
potete tener nota di tutto quello che 
dovete acquistare. Quando siete pron¬ 
ti per andare al negozio dovrete solo 
stampare la lista della spesa: Super 
Shopper, programma di utilità e 
database per la gestione della 
casa, memorizza, aggiorna, 
ordina e stampa in modo 
facile e rapido le liste 
della spesa. Oltre 
a trovare le spiega¬ 
zioni sull'uso di Super 
Shopper scoprirete in 
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questo articolo l'evoluzione del pro¬ 
gramma dalla versione tartaruga del 
DOS a quella lepre del ProDOS e al¬ 
cune preziose indicazioni per la con¬ 
versione dei vostri programmi DOS 
3.3 in ProDOS. 

In barba, naturalmente, ai potenzia¬ 
li trabocchetti. 

Vedrete così qual è l'uso più accor¬ 
to della memoria del ProDOS, quali 
variazioni vengono apportate ai prin¬ 
cipali comandi del Dos, quali norme 
sono imposte nella nominazione dei 
file; e poi i codici di errore, le riper¬ 
cussioni sull’Applesoft e, per conclu¬ 
dere con saggezza, i pericoli nei qua¬ 
li è meglio non incappare quando si 
usa il ProDOS. 

Come introdurre 
categorie e prodotti 

Quando eseguite per la prima vol¬ 
ta Super Shopper non ci sono sul di¬ 
schetto informazioni sulla lista della 
spesa: Super Shopper vi offre l'op¬ 
zione di creare la vostra. Potete ave¬ 
re in lista fino a 40 categorie, e ogni 
categoria può comprendere fino a 40 
prodotti. In totale il programma può 
dunque tener nota di 1.600 articoli di¬ 
versi: vettovaglie sufficienti per la 
popolazione di una cittadina! 

Quando create la vostra lista riflet¬ 
tete anzitutto sul modo in cui fate la 
spesa, e organizzate in conformità le 
vostre categorie. 

Per esempio un criterio è quello 
dei tipi di prodotto che vi occorrono: 
potreste avere allora nomi di catego¬ 
ria come Verdura, Frutta, Pollame e 
pesce, Cibi in scatola, Erbe e spe¬ 
zie, Pane, Latticini, Surgelati, Deter¬ 
sivi e così via. 

Oppure potreste organizzare la li¬ 
sta in conformità con la disposizio¬ 
ne degli scaffali nel supermercato in 
cui vi servite. Ogni categoria potreb¬ 
be rappresentare una corsia di scaffa¬ 
li, e gli articoli di quella categoria sa¬ 
rebbero i prodotti che si trovano in 
quella corsia. 

Introducete le categorie quando Su¬ 
per Shopper ve le chiede. Se cambia¬ 
te idea sulle categorie potrete aggiun¬ 
gerne in seguito altre, cambiare i 
nomi o anche eliminare le categorie 
che non vi vanno a genio. 

Una volta introdotte le categorie 
viene visualizzato il menù principa¬ 
le. Per mettere nelle categorie gli ar¬ 
ticoli selezionate l'opzione (W) (Scri¬ 
vi le liste); Super Shopper vi chiede¬ 
rà a quale categoria volete lavorare. 


Tavola 1. Le funzioni del programma 


Linee Funzione 


70-310 

320-450 

460-620 

630-760 

770-860 

870-980 

990-1000 

1050-1080 

1090-1190 

1200-1240 

1250-1550 

1560-1730 

1740-1840 

1850-2090 

2100-2390 

2400-2500 

2510-2650 

2660-2820 

2830-2910 

2920-3010 

3020-3140 

3150-3230 


Allestimento e inzializzazione del programma 

Menù principale 

Menù di editing dei prodotti 

Funzione di aggiornamento delle liste dopo le spese 

Funzione di aggiunta di un prodotto 

Funzione di eliminazione di un prodotto 

Funzione di cambiamento del nome di un prodotto 

Funzione di cambiamento dello stato di lista di un articolo 

Ordinatore della lista dei prodotti 

Funzione di ricerca della categoria seguente 

Routine di stampa della lista 

Varie subroutine brevi 

Visualizzazione della lista dei prodotti 

Routine scelta prodotto/freccia 

Routine scelta categoria/freccia 

Menù di editing delle categorie 

Funzione di eliminazione delle categorie 

Funzione di cambiamento del nome delle categorie 

Funzione di aggiunta di categorie 

Routine di allestimento iniziale utente 

Uscita dal programma 

Subroutine di I/O dischetto (solo versione DOS 3.3) 


Viene visualizzata una lista dei no¬ 
mi di categoria che avete nel file, 
con un indicatore accanto a uno dei 
nomi. Per scegliere una categoria u- 
sate le frecce destra e sinistra (oppu¬ 
re freccia giù e freccia su), per spo¬ 
stare l'indicatore rispettivamente in 
giù e in su lungo la lista. Quanto 
l'indicatore è accanto alla categoria 
desiderata premete <RETURN>. Pre¬ 
mendo <ESC> si torna invece alla 
videata precedente. Quando avete in¬ 
trodotto la vostra lista potrete con 
poche battute modificare, mettere in 
ordine alfabetico o stampare la lista 
della spesa. 

Scegliete la categoria che desidera¬ 
te, usando le frecce e il tasto <RE- 
TURN>. Adesso usate l'opzione (A) 
(Aggiungi un prodotto) per introdur¬ 
re gli articoli nella vostra lista della 
spesa. Se avete bisogno di acquistare 
adesso l'articolo che state digitando 
battete S quando Super Shopper vi 
chiede se l'articolo è da acquistare su¬ 
bito. 

Presso l’articolo compare un con¬ 
trassegno di spunta. Gli articoli così 
spuntati saranno stampati nella lista 
della spesa; quelli non spuntati, 
viceversa, non compariranno nella li¬ 
sta stampata fino a quando non ne a¬ 


vrete bisogno, ma di questo parlere¬ 
mo più avanti. 

Finita questa categoria scegliete 
l’opzione (P) (Prossima categoria). 
Capita facilmente di cambiare idea 
dopo aver battuto gli articoli, e quin¬ 
di non preoccupatevi se la lista non 
vi riesce giusta la prima volta. Quan¬ 
do avete finito dovreste avere una li¬ 
sta di tutti i cibi che rientrano nei 
vostri acquisti abituali, disposti per 
categoria. 

Potrebbe essere questo il momen¬ 
to adatto per premere <ESC> e tor¬ 
nare al menù principale, facendo at¬ 
tenzione a usare l'opzione (Q) (Fini¬ 
re) di modo che la vostra lista sia im¬ 
magazzinata sul dischetto. Super 
Shopper dispone di protezioni per ga¬ 
rantire che salviate con successo la 
vostra lista prima di uscire dal pro¬ 
gramma, ma non può impedirvi di 
spegnere il computer o di premere 
<CTRL> <RESET>. 

Due parole sull'introduzione delle 
liste: Super Shopper è efficiente, ma 
sarebbe una perdita di tempo installa¬ 
re il programma ogni volta che vi 
viene in mente un solo articolo che 
dovete comprare. 

Potrebbe essere invece il caso di te¬ 
nere brevi liste scritte a mano, e in- 
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trodurre tutti gli articoli in una sola 
volta prima di uscire per andare al ne¬ 
gozio. 

Un’altra cosa: se vi piace studiare 
le ricette con la lista degli ingredien¬ 
ti alla mano, per vedere se vi manca 
qualcosa, Super Shopper vi farà ri¬ 
sparmiare molti viaggi supplementa¬ 
ri al negozio, alla ricerca di un paio 
di uova per la torta. Anche perché 
potrebbe essere già chiuso... 

Come stampare 
la lista della spesa 

Per stampare la lista della spesa se¬ 
lezionate S (Stampare una lista della 
spesa) sul menù principale e introdu¬ 
cete la vostra scelta del formato di 
80 o di 132 colonne. Super Shopper 
stamperà una lista comprendente tut¬ 
ti i nomi di categoria, e sotto ogni 
nome di categoria ci saranno gli arti¬ 
coli che avete spuntato per questo gi¬ 
ro di compere. 

Fatta la spesa avete due modi a di¬ 
sposizione per eliminare gli indicato¬ 
ri dai file di Super Shopper. Potete e- 
liminare tutti gli indicatori dalle li¬ 
ste premendo U (Aggiornare le liste 
dopo la spesa) e poi R (Rimuovere 
tutti i marcatori) nel menù principa¬ 
le. Altrimenti potete passare a uno a 
uno tutti gli articoli spuntati selezio¬ 
nando sul menù principale U segui¬ 
to da S (Selezionare i marcatori da 
togliere). 

Se optate per questo secondo meto¬ 
do premete S (sì) o N (no) ogni vol¬ 
ta che Super Shopper vi chiede "Hai 
comprato <questo articolo>?". 

Come sempre, una volta aggiorna¬ 
te le vostre liste usate l’opzione (Q) 
per mettere fine alla seduta. Questo 
assicura che le vostre liste siano im¬ 
magazzinate sul dischetto come le a- 
vete lasciate. 

Come si inserisce 
e come funziona 

Come si vede dal listato 1 Super 
Shopper funziona solamente in Pro- 
DOS. 

Se ne può però creare una versione 
che funziona in DOS 3.3 eliminan¬ 
do qualche linea dal listato 1 e ag¬ 
giungendo, o sostituendo alle linee 
tolte, le linee visibili nel listato 2. 
Questa seconda versione funziona an¬ 
che in ProDOS, ma il listato 1 è 
più breve e molto più veloce, in par¬ 
ticolare nel caso di liste lunghe. 

Per digitare Super Shopper battete 


Listato 1. Super Shopper 

Versione ProDOS. Per il DOS 3.3 introdurre questo listato 
e apportarvi le modifiche indicate nel listato 2. 

1 REM - 

2 REM SUPER.SHOPPER 

3 REM DI STEVEN E 

4 REM MARSHA MEUSE 

5 REM COPYRIGHT (C) 1986 

6 REM BY APPLICANDO 4 

7 REM MICROSPARC, INC 

8 REM - 

9 REM Questa versione funziona solo in ProDOS 
60 GOTO 100 

70 BBS = FOR I = 1 TO LEN (B$):B = ASC ( MIDS (B$,I,1)):BB$ 

= BBS + CHRS (B - (B > 96 AND B < 123) * 32): NEXT I :B$ = BB 

$ : RETURN 

80 WAIT - 16384/128: GET A$: IF ASC (A$) > 95 THEN A$ = CHRS ( 
ASC (A$) - 32) 

90 RETURN : REM "converte in maiuscolo/ i caratteri minuscoli 
100 TEXT : HOME 

110 REM * 

120 REM " Se il computer non è un //e o //c convertire il 
130 REM " testo minuscolo del programma in maiuscolo 
140 REM 

150 IF PEEK ( - 1101) < > 6 THEN A = 768: FOR B = A TO A + 47: 

READ C: POKE B,C: NEXT : CALL A 

160 DATA 165/103/133/0/165/104/133/1/160/1/177/0,240/33/160/4 
170 DATA 177/0/240/13/48/8/201/96,144/4/41/95/145/0/200/208 
180 DATA 239/160,0/177/0/170/200/177/0/133,1,134/0/208/223,96 
200 ONERR GOTO 2950 

210 PRINT CHRS (4)"RESTORE SHOPPER.VARS": POKE 216,0 
220 REM 

230 REM " Codici controllo stampante (attualmente per Imagewrite 
r) 

240 REM 

250 PSLOT = 1: REM "numero slot stampante 

260 PINITS = CHRS (9) + "80N": REM "Stringa inizializzazione st 
ampante 

270 PFFS = CHRS (12) : REM "Codice controllo stampa di un avanza 
mento modulo 

280 P80S = CHRS (27) + "N": REM "Codice controllo stampa a 80 c 
donne 

290 P132S = CHRS (27) + "Q": REM "Stampa 17 cpi 

300 PCS = CHRS (27) + "X": REM "Codice controllo stampa nome ca 
tegoria (di solito sottolineatura) 

310 PNS = CHRS (27) + "Y": REM "Codice controllo stampa normale 
(nega PCS) 

320 REM 

330 REM " Menù principale 
340 REM 

350 HOME : GOSUB 1590: VTAB 8: PRINT "Puoi:": PRINT : PRINT TAB( 
4)" (W) Scrivere le liste": PRINT : PRINT TAB( 4)" (U) Aggior 
nare le liste dopo la spesa"; 

360 PRINT : PRINT TAB( 4)"(S) Stampare una lista della spesa": P 
RINT : PRINT TAB( 4)"(F) Stampare la lista completa": PRINT 
370 PRINT TAB( 4)"(A) Aggiungere, Cambiare o Eliminare le 

categorie": PRINT : PRINT TAB( 4)"(Q) Finire" 

380 HTAB 1: VTAB 22: GOSUB 80:AN$ = A$ 

390 IF A$ = "W" THEN 490 

400 IF A$ = "U" THEN 660 

410 IF A$ = "S" THEN 1280 

420 IF A$ = "F" THEN 1280 

430 IF A$ = "A" THEN 2430 

440 IF A$ = "Q" THEN 3100 

450 GOTO 350 
4 60 REM 

470 REM " Scrive le liste 
480 REM 

490 GOSUB 2130: HOME 
500 GOSUB 1770 

510 VTAB 23: PRINT "A)ggiungi,E)limina,C)ambia,M)etti/Togli,P)ros 
sima,S)eleziona,R)iordina, <ESC>"; 

520 HTAB 1: VTAB 1: GOSUB 80: GOSUB 1600 
530 IF A$ = "S" THEN 1230 

540 IF A$ = "A" THEN 800 

550 IF A$ = "E" AND LEN (P$(C,1)) THEN 900 

560 IF A$ = "C" AND LEN (P$(C,1)) THEN 1020 

570 IF A$ = "M" AND LEN (P$(C,1)) THEN 1080 

580 IF A$ = "R" AND LEN (P$(C,1)) THEN 1120 

590 IF ASC (A$) = 27 THEN 350 
600 IF A$ < > "P" THEN 510 

610 HP = 0:VP = 0:C = C + 1: IF C = CTG THEN C = 0 
620 GOTO 500 
630 REM 

640 REM " Aggiorna le liste dopo la spesa 
650 REM 

660 HOME : VTAB 5: PRINT TAB( 4)"==========================-==== 


DOS 3.3 
ProDOS 

Apple Ile 
Apple Ile 
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====": PRINT TAB( 4)"! Aggiorna le liste dopo la spesa !": P 

RINT TAB( 4)"===================================": PRINT : P 

RINT : REM "35/35 SEGNI = 

670 PRINT "Puoi:": PRINT : PRINT TAB( 2)"R)imuovere tutti i mare 
atori : PRINT : PRINT TAB( 2)"S)elezionare i marcatori d 

a rimuovere": PRINT : PRINT TAB( 2)"<ESC> per men'": PRINT : 
PRINT : GOSUB 80: IF ASC (A$) = 27 THEN 350 
680 IF A$ = "S" THEN 710 
690 IF A$ > < "R" THEN 660 

700 FOR C = 0 TO CTG - 1: FOR P = 1 TO 40:P%(C,P) - 0: NEXT : NEX 
T : GOTO 350 

710 FOR C = 0 TO CTG - 1: GOSUB 1770: FOR P = 1 TO 40: IF NOT P% 
(C,P) THEN NEXT : NEXT : GOTO 350 
720 VTAB 23: PRINT TAB ( 8)"Hai comprato "P$ (C,P)"?": VTAB 24: HT 
AB 9: PRINT "(S/N) o <ESC> menù";: GOSUB 80: GOSUB 1600: IF 
ASC (A$) = 27 THEN P = 40:C = CTG: GOTO 760 
730 IF A$ = "S" THEN P%(C,P) = 0: GOSUB 1620: GOTO 760 
740 IF A$ = "N" THEN 760 
750 GOTO 720 

760 NEXT : NEXT : GOTO 350 
770 REM 

780 REM " Aggiunge un prodotto 
790 REM 

800 IF LEN (P$ (C,40)) THEN PRINT CHR$ (7)"Questa lista è comp 
leta.": GOSUB 1610: GOSUB 1600: GOTO 510 
810 GOSUB 1650: IF NOT LEN (P3(C,1)) THEN P = 1: GOTO 850 
820 VTAB 23: PRINT TAB( 2)"Scegli un posto per il nuovo prodotto 
":NP = NP + 1:P3(C,NP) = CHR$ (27): IF NP = 21 THEN GOSUB 1 
770 

830 GOSUB 1890: GOSUB 1600: IF P = NP THEN 850 

840 A = P: FOR P = NP TO A + 1 STEP - 1:P3(C,P) = P$(C,P - 1):P% 
(C, P) = P% (C, P - 1) : NEXT 

850 P3(C,P) = B$: P% (C, P) = B: IF P = NP THEN GOSUB 1620: GOTO 51 

0 

860 GOTO 500 
870 REM 

880 REM " Elimina un prodotto 
890 REM 

900 VTAB 23: PRINT TAB( 5)"Quale prodotto vuoi eliminare?": GOSU 
B 1890: GOSUB 1600 

910 PRINT "Elimini "P$(C,P)"? (S/N) or <ESC>"; 

920 GOSUB 80: GOSUB 1600: IF ASC (A3) = 27 THEN 510 

930 IF A3 = "N" THEN 900 
940 IF A3 < > "S" THEN 920 

950 IF P = NP THEN VP = VP - 1 

960 IF P < 40 THEN P3(C,P) = P3(C,P + 1):P%(C,P) = P%(C,P + 1): I 

F NOT LEN (P3 (C,P)) THEN GOSUB 1600: GOTO 500 
970 IF P = 40 THEN P3(C,P) = "":P%(C,P) = 0: GOSUB 1600: GOTO 500 
980 P = P + 1: GOTO 960 
990 REM 

1000 REM " Cambia il nome di un prodotto 
1010 REM 

1020 VTAB 23: PRINT TAB( l)"Quale nome vuoi cambiare?": GOSUB 18 
90: GOSUB 1600 
1030 GOSUB 1650 

1040 P3 (C,P) = B3:P%(C,P) = B: GOSUB 1620: GOTO 510 
1050 REM 

1060 REM " Cambia il marcatore dell’articolo sulla lista 
1070 REM 

1080 GOSUB 1600: PRINT TAB ( 2)"Scegli l'articolo da listare ": G 
OSUB 1890 :P% (C f P) = NOT P%(C,P): GOSUB 1600: GOSUB 1620: GO 
TO 510 
1090 REM 

1100 REM " Riordina una lista (ordinamento alfabetico) 

1110 REM 

1120 GOSUB 1600: PRINT "Lista alfabetica? (Conferma (S/N) ";: GOS 
UB 80: IF A3 = "N" THEN GOSUB 1600: GOTO 510 
1130 IF A3 < > "S" THEN 1120 

1140 GOSUB 1600: PRINT TAB( 14)" (sto lavorando...)" 

1150 FOR B = 2 TO 40:A3 = P3(C,B):A = P%(C,B): IF NOT LEN (A3) 

THEN B = 40: NEXT : GOTO 1190 

1160 FOR P = B - 1 TO 1 STEP - 1 : IF P3(C,P) < A3 THEN P3(C / P + 

1) = A3 : P%(C,P + 1) = A:P = 1: NEXT : NEXT : GOTO 1190 

1170 P3 (C, P + 1) = P3 (C,P):P% (C, P + 1) = P%(C,P) : NEXT 

1180 P3 (C,P + 1) = A3 :P%(C,P + 1) = A: NEXT 

1190 GOTO 500 
1200 REM 

1210 REM " Cerca categoria seguente (calcola posizione freccia) 
1220 REM 

1230 IF CTG < 21 THEN VC = C + 1 :HC = 0: GOTO 4 90 

1240 HC = 2 + ( (C > 19) * 20) :VC = 1 + C - ((C > 19) * 20): GOTO 

490 

1250 REM 

1260 REM " Stampa la lista della spesa 
1270 REM 

1280 HOME : VTAB 12: PRINT TAB( 7)"(A)80 o (B) 132 colonne? ";: G 
OSUB 80: IF A3 = "B" THEN CLM = 8: GOTO 1320 
1290 IF A3 = CHR3 (13) OR A3 = CHR3 (27) THEN 350 
1300 IF A3 < > "A" THEN 1280 

1310 clm = 5 (Continua) 


il programma in Applesoft visibile 
nel listato 1 e salvatelo sul di¬ 
schetto con il comando: 


SAVE SUPER.SHOPPER 


Il listato 2 è una lista delle mo¬ 
difiche che convertono Super Shop¬ 
per per il funzionamento in DOS 
3.3. Le modifiche sono in ordine nu¬ 
merico, in modo che possiate battere 
il listato 1 e spuntare ogni modifica 
quando la raggiungete. Fate attenzio¬ 
ne a eliminare le linee elencate nel 
paragrafo esplicativo. Salvate la ver¬ 
sione DOS 3.3 completata con il co¬ 
mando: 


SAVE SUPER.SHOPPER 


Super Shopper fa da intermediario 
fra voi e i dati sul vostro dischetto, 
permettendovi di editare e stampare 
le vostre liste della spesa. La diffe¬ 
renza principale fra le versioni Pro- 
DOS e DOS 3.3 è il modo in cui i 
dati sono immagazzinati sul dischet¬ 
to: la versione DOS 3.3 usa file di 
testo ad accesso casuale, e la versio¬ 
ne ProDOS usa il file VAR, un tipo 
di file non disponibile con il DOS 
3.3. Il file VAR è un parente del file 
binario, e contiene tutte le variabili 
del programma in Applesoft che lo 
ha creato. Questo permette a Super 
Shopper di caricare rapidamente i vo¬ 
stri dati della spesa, modificarli in 
memoria e scrivere il tutto quando u- 
scite dal programma. 

Invece quando fate girare la versio¬ 
ne in DOS 3.3, questa deve leggere 
ogni voce tramite l'istruzione IN¬ 
PUT dellApplesoft. E' vero che cer¬ 
ca di saltare i record vuoti, ma con 
tutto ciò il procedimento può essere 
lungo. Poi, per evitare un'ancor più 
lunga scrittura sul dischetto alla fine 
di una seduta, la versione DOS 3.3 
aggiorna le singole voci sul dischet¬ 
to ogni volta che ne viene cambiata 
una. Qui la maggior velocità della 
versione ProDOS è un indubbio van¬ 
taggio. 

La gestione del file VAR è molto 
facile, tramite i comandi del Pro¬ 
DOS STORE e RESTORE. Molti 
programmi in Applesoft che usano 
file di testo DOS 3.3 per immagazzi¬ 
nare i dati potrebbero essere notevol¬ 
mente accelerati usando file VAR in 
ProDOS. 

Per chi è interessato ad approfondi¬ 
re lo studio del meccanismo interno 
di Super Shopper la tavola 1 de- 
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scrive le funzioni delle varie subrou¬ 
tine, e la tavola 2 documenta le va¬ 
riabili. 

Modifiche e 
personalizzazioni 

Se volete potete personalizzare Su¬ 
per Shopper in conformità con le vo¬ 
stre esigenze. Per esempio se non a- 
vete nello slot 1 una stampante C. I- 
toh Prowriter o l’Apple Imagewriter, 
dovrete cambiare i codici di control¬ 
lo della stampante alle linee 250- 
310. PSLOT è lo slot nel quale si 
trova la vostra scheda stampante (1- 
7). PINIT$ è la stringa per l’inizializ- 
zazione della stampante. 

Notate che essa deve anche disatti¬ 
vare l'eco dei caratteri sullo schermo 
(solitamente <CTRL>L). P80$ e 
PI32$ sono le sequenze di codice di 
controllo che danno istruzione alla 
vostra stampante di stampare rispetti¬ 
vamente in formato 80 colonne o 
132 colonne. Infine PC$ contiene il 
codice per evidenziare i nomi delle 
categorie e PN$ contiene il codice 
per disattivare l'evidenziamento. Su¬ 
per Shopper è stato configurato in 
modo che sottolinei i nomi di cate¬ 
goria, ma può darsi che li vogliate 
invece stampare in neretto. Per esem¬ 
pio, per convertire il programma in 
modo che giri con la stampante E- 
pson sostituite le linee 280-310 con 
le seguenti: 


280 P80$ = CHR$(18) 

290 Pl$ = CHR$(27) + ”Q" 

300 PCS = CHR$(27) + + 

CHR$ (I) 

310 PN$ = CHR$(27> + + 

CHR$ (0) 


Per avere i codici appropriati con¬ 
sultate i manuali della vostra stam¬ 
pante e della vostra interfaccia. 

Potete anche cambiare ciò che av¬ 
viene quando uscite dal programma. 
Super Shopper, così come è scritto, 
si limita a pulire lo schermo e a fer¬ 
marsi. Per mettere il programma su 
un dischetto separato, pilotato da me¬ 
nù, e farlo tornare al vostro program¬ 
ma di menù quando avete finito, 
cambiate la linea 3140. Super Shop¬ 
per termina sempre a questa linea. 
Se il vostro programma di menù si 
chiama STARTUP dovreste cambia¬ 
re così la linea 3140: 


3140 POKE 216,0 : HOME : PRIN- 


1320 

1330 

1340 

1350 

1360 

1370 


1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 


1600 

1610 

1620 

1630 

1640 

1650 


1660 

1670 


1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 

1820 

1830 

1840 

1850 

1860 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

1960 


HOME : VTAB 12: PRINT TAB ( 3) "Sto stampando la lista della 
spesa": PRINT : PRINT TAB ( 6)"Accendi la stampante, prego." 
ONERR GOTO 1360 

PRINT D$"PR#"PSLOT: PRINT : VTAB 14: CALL - 958: POKE 216,0 
: PRINT PINITS: IF A$ = "A" THEN PRINT P80$: GOTO 1380 
PRINT P132$: GOTO 1380 

POKE 216,0: IF PEEK (222) < > 3 THEN 2950 

PRINT D$"PR#0": PRINT : HOME : VTAB 10: PRINT CHR$ (7) "Non 
c'è scheda stampante nello slot "PSLOT".": VTAB 23: GOSUB 16 
10: GOTO 350 
IF AN$ = "F" THEN 1500 

POKE HT, CLM * 7: PRINT "Lista della spesa": PRINT : PRINT 
FOR C = 0 TO CTG - 1 STEP CLM: PRINT PCS 
A = C + CLM - 1: IF A = > CTG THEN A = CTG - 1 
NP = 0: FOR B = C TO A 

IF P%(B,PR%(B)) THEN POKE HT, (B - C) * 16: PRINT P$(B,PR%(B 

) ); :PR%(B) = PR%(B) + 1:NP = 1: NEXT : GOTO 1460 

PR%(B) = PR%(B) + 1: IF PR% (B) < 41 THEN IF LEN (P$(B,PR%( 

B))) THEN 1430 

PR%(B) = 40: NEXT 

IF NP THEN PRINT PNS 

NP = 0: FOR B = C TO A: IF PR% (B) < 40 THEN NP = 1 
NEXT : IF NP THEN 1410 

NEXT : PRINT PFFS: PRINT D$"PR#0": FOR B = 0 TO CTG - 1 : PR%( 
B) = 0: NEXT : GOTO 350 * 

PRINT "Ecco l'intera lista!": PRINT : PRINT 

FOR C = 0 TO CTG - 1 STEP CLM: PRINT PCS: A - C + CLM - 1 : IF 

A = > CTG THEN A = CTG - 1 

FOR P = 0 TO 40:NP = 0: FOR B = C TO A: IF NOT LEN (P$(B,P 

)) THEN NEXT : GOTO 1540 

POKE HT, (B - C) * 16: PRINT P$(B,P);:NP = 1: NEXT 
IF NP THEN PRINT PNS 

NEXT : NEXT : PRINT PFFS: PRINT D$"PR#0": GOTO 350 
REM 

REM " Subroutine varie 
REM 

VTAB 3: PRINT ”***************************************** 


1986 by Applicando 
**************«. RE 


HTAB B 
PRINT TAB( 17)". 


POKE 34, PEEK (37 
TEXT : GOSUB 1710: 
REM "15 PUNTI 


RETURN 

POP : GOTO 510 


Super Shopper di Steven Meuse ** (C) 

& MicroSPARC ************************** 

TURN : REM "41/2/41 ASTERISCHI 
VTAB 23: HTAB 1: CALL - 958: RETURN 

PRINT TAB ( 6)"premi <RETURN> per continuare...";: GET A$: R 
ETURN 

B = 3 + (NP < 21) * 7 + 20 * (P > 20): HTAB B: VTAB 1 + P - 
(P > 20) * 20: IF B = 3 THEN POKE 33,19 
CALL - 868: POKE 33,40: IF P%(C,P) THEN PRINT 
2: PRINT PS (C,P): RETURN 

."; : HTAB 1: 

): INPUT "Scrivi il nuovo articolo->";B$: 

GOSUB 1600: IF LEN (B$) > 15 THEN 1650: 

IF NOT LEN (B$) THEN POP : GOTO 510 

GOSUB 70: PRINT "C'} "B$" sulla tua attuale": PRINT "lista d 
ella spesa? (S/N/ESC) GOSUB 80: GOSUB 1600: IF A$ = "S" 

THEN B = 1: RETURN 
IF A$ = "N" THEN B = 0: 

IF ASC (A$) = 27 THEN 

GOTO 1670 

IF NOT LEN (B$) THEN RETURN 

A$ = FOR B = 1 TO LEN (B$) : IF 

31 THEN A$ = A$ + MIDS (B$,B,1) 

NEXT :B$ = A$: RETURN 
REM 

REM " Visualizza la lista dei prodotti 
REM 

D = 3 :NP = 40: IF NOT LEN (P$(C,21)) THEN 
VTAB 1: POKE 35,22: HOME : POKE 35,24: HTAB (39 - LEN (PS(C 
,0))) / 2: INVERSE : PRINT P$(C,0): NORMAL 
FOR A = 1 TO 20: HTAB D: IF P%(C,A) THEN PRINT 
HTAB D + 2: PRINT P$(C,A): IF NOT LEN (P$(C,A)) THEN NP = 

A - 1 : A = 20: NEXT : RETURN 
NEXT 

VTAB 2:D = 23: FOR A = 21 TO 40: HTAB D: IF P%(C,A) THEN PR 
INT "*"; 

HTAB D + 2: PRINT P$(C,A): IF NOT LEN (P$(C,A)) THEN NP = 

A - 1 : A = 40 
NEXT : RETURN 
REM 

REM " Sceglie un prodotto (con la freccia mobile) 

REM 

GOSUB 1770 

VTAB 24: PRINT "Frecce per scegliere-(RET) = conferma";: IF 
VP < 2 THEN VP = 2:HP = 0 
IF NP > 20 THEN 1980 
VTAB VP: HTAB 7: PRINT 

HTAB 1: VTAB 1: GOSUB 80: VTAB VP: HTAB 7: PRINT " 

IF ASC (A$) = 21 OR ASC (A$) = 10 THEN VP = VP + 1 : IF VP 

= NP + 2 THEN VP = 2 
IF ASC (A$) = 8 OR ASC (A$) 

1 THEN VP = NP + 1 

IF ASC (A$) =13 THEN P = VP - 1: 

IF ASC (A$) = 27 THEN P = VP 


ASC ( MIDS (B$,B,1)) 


10 


11 THEN VP = VP - 1: IF VP = 


RETURN 
1: GOTO 2080 


60 












1970 GOTO 1910 

1980 IF HP = 0 THEN HP = 1 

1990 VTAB VP: HTAB HP : PRINT 

2000 HTAB 1: VTAB 1: GOSUB 80: VTAB VP: HTAB HP : PRINT ** " ; 

2010 IF ASC (A$) = 13 THEN P = VP - 1 + ((HP > 1) *20): RETURN 

2020 IF ASC (A$) = 21 OR ASC (A$) = 10 THEN VP = VP + 1 : IF VP 

= 22 AND HP = 1 THEN VP = 2 : HP = 20 
2030 IF VP + 18 = NP AND HP = 20 THEN VP = 2:HP = 1 

2040 IF ASC (A$) = 8 OR ASC (A$) = 11 THEN VP = VP - 1 : IF VP = 

1 AND HP = 1 THEN HP = 20:VP = NP - 19 
2050 IF VP = 1 AND HP = 20 THEN VP = 21:HP - 1 
2060 IF ASC (AS) > < 27 THEN 1990 

2070 P = VP - 1 + ( (HP > 1) * 20) 

2080 GOSUB 1600: POP : IF P$(C,NP) = CHR$ (27) THEN P$(C,NP) = " 

" : VP = VP - (P = NP) :NP = NP - 1: IF NP = 20 THEN GOSUB 177 
0: REM "aggiusta NP e VP se (A)ggiungere l'ha cambiato 
2090 GOTO 510 
2100 REM 

2110 REM " Sceglie una categoria (con la freccia mobile) 

2120 REM 

2130 HOME : VTAB 22: PRINT TAB ( 12)"Quale categoria?" 

2140 PRINT TAB ( 6)"Usa le frecce per scegliere": PRINT TAB( 9)" 
(RETURN) per confermare";: VTAB 1 
2150 HP = 0:VP = 0: IF VC < 1 THEN VC = 1 
2160 B = 12: IF CTG > 20 THEN B = 5: GOTO 2280 

2170 HC = 2: FOR C = 0 TO CTG - 1: HTAB B: PRINT P$(C,0): NEXT 

2180 VTAB VC: HTAB 9: PRINT "==>"; 

2190 HTAB 35: VTAB 23: GOSUB 80: VTAB VC: HTAB 9: PRINT " 

2200 IF ASC (A3) - 21 OR ASC (A3) = 10 THEN VC = VC + 1 

2210 IF ASC (A3) = 8 OR ASC (A3) = 11 THEN VC = VC - 1 

2220 IF VC = 0 THEN VC = CTG 

2230 IF VC = CTG + 1 THEN VC = 1 

2240 IF ASC (A3) = 13 THEN C = VC - 1: RETURN 

2250 IF ASC (A3) = 27 AND ANS = "W" THEN POP : GOTO 350 

2260 IF ASC (A3) = 27 THEN POP : GOTO 2430 

2270 GOTO 2180 

2280 FOR C = 0 TO 19: HTAB B: PRINT P3(C,0): NEXT : VTAB 1:B = 25 

: FOR C = 20 TO CTG - 1: HTAB B: PRINT P$(C,0): NEXT : IF HC 

= 0 THEN HC = 2 

22 90 IF VC = 0 THEN VC = 1 : HC = 2 

2300 VTAB VC: HTAB HC: PRINT "==>"; 

2310 HTAB 35: VTAB 23: GOSUB 80: VTAB VC: HTAB HC : PRINT " 

2320 IF ASC (A3) = 13 THEN C = VC - 1 + ((HC > 2) *20): RETURN 

2330 IF ASC (A3) = 21 OR ASC (A3) = 10 THEN VC = VC + 1 : IF VC 

= 21 AND HC = 2 THEN VC = 1 :HC » 22 
2340 IF HC = 22 AND VC + 19 = CTG THEN VC = 1:HC = 2 

2350 IF ASC (A3) = 8 OR ASC (A3) = 11 THEN VC = VC - 1 : IF VC = 

0 AND HC = 2 THEN VC = CTG - 20:HC = 22 
2360 IF VC = 0 AND HC = 22 THEN VC = 20:HC = 2 
2370 IF ASC (A3) = 27 AND ANS = "W" THEN POP : GOTO 350 

2380 IF ASC (A3) - 27 THEN POP : GOTO 2430 

2390 GOTO 2300 
2400 REM 

2410 REM " Menù aggiunta, cambio ed eliminazione categoria 
2420 REM 

2430 HOME : GOSUB 1590 

2440 PRINT : PRINT TAB ( 9)"==========================": PRINT T 

AB( 9)"! Modifiche di categoria !": PRINT TAB( 9) "========= 

=================••: REM "26/26 SEGNI = 

2450 PRINT : PRINT "Puoi:": PRINT : PRINT : PRINT TAB( 9)"A)ggiu 
ngere una categoria": PRINT : PRINT TAB ( 9)"E)1iminare una 
categoria": PRINT : PRINT TAB( 9)"C)ambiare una categoria": 
PRINT : PRINT TAB ( 9)"<ESC> per il menù" 

2460 GOSUB 80: IF A3 = "E" THEN 2540 
2470 IF A3 = "C" THEN 2690 
2480 IF A3 = "A" THEN 2860 
2490 IF ASC (A3) = 27 THEN 350 
2500 GOTO 2460 
2510 REM 

2520 REM " Elimina una categoria 
2530 REM 

2540 HOME : VTAB 22: PRINT TAB( 3)"Quale categoria vuoi eliminar 
e?": GOSUB 2140: VTAB 22: HTAB 1: CALL - 958: PRINT : PRINT 
"Elimini "P3(C,0)"? (conferma S/N)" 

2550 GOSUB 80: IF A3 = "N" THEN 2430 
2560 IF ASC (A3) = 27 THEN 350 
2570 IF A3 > < "S" THEN 2550 

2580 HOME : VTAB 12: PRINT TAB ( 9)"Sto eliminando "P$(C,0) 

25 90 IF C = CTG - 1 THEN VC = VC - 1 : GOTO 2610 

2600 FOR C = C TO CTG - 2: FOR P = 0 TO 40:PS(C,P) = P$ (C + 1,P): 

P%(C,P) = P% (C + 1, P) : NEXT : NEXT 

2610 CTG = CTG - 1: FOR P = 0 TO 40:PS(CTG,P) = "":P%(CTG,P) = 0: 

NEXT : IF CTG THEN 2430 

2620 VTAB 1: PRINT : PRINT D$"UNLOCK"F3: PRINT D$"DELETE"FS 
2630 HOME : GOSUB 1590: PRINT : PRINT : PRINT "Non hai us^to alcu 
na categoria.": PRINT : PRINT "Puoi:": PRINT : PRINT TAB( 9 
) " (A) Aggiungere categorie": PRINT : PRINT TAB( 9)"(Q) Fine 
": GOSUB 80: IF A3 = "A" THEN 3000 
2640 IF A3 = "Q" THEN 3140 
2650 GOTO 2630 

2660 rem (Continua) 


Note sulla conversione 
dal DOS al ProDOS 

Eccoci a un argomento che mol¬ 
tissimi tra i lettori troveranno vera¬ 
mente prezioso. 

Questo paragrafo, e tutti quelli a 
seguire, infatti, è quasi un breviario 
per chi si trova a dover convertire un 
tipico programma in Applesoft dal 
DOS 3.3 S ProDOS: le indicazioni 
che contiene infatti vanno ben oltre 
le necessità di chi deve convertire Su¬ 
per Shopper. 

Il ProDOS Versione 1.1.1 com¬ 
prende il nocciolo del ProDOS, 
chiamato PRODOS, e l’interprete 
Basic del ProDOS, chiamato BA- 
SIC.SYSTEM. Questo interprete è 
il nesso fra i vostri programmi in 
Applesoft e le routine di livello infe¬ 
riore del nocciolo del ProDOS (chia¬ 
mato anche MLI, ossia machine lan- 
guage interface, interfaccia linguag¬ 
gio macchina). Quando in questa se¬ 
de si parla di ProDOS ci si riferisce 
sia al nocciolo sia all'interprete Ba¬ 
sic, in quanto sono entrambi necessa¬ 
ri per programmare in Applesoft con 
il ProDOS. 

L'utilizzo della 
memoria in ProDOS 

Ci sono alcune considerazioni ge¬ 
nerali da fare sulla conversione dei 
programmi Applesoft in ProDOS. 
Più importante di tutto è trovare nel¬ 
la memoria un posto sicuro per le 
subroutine in linguaggio macchina. 
In DOS c’è una gran quantità di buo¬ 
ni nascondigli: a pagina 3 ($300- 
$3CF), fra $800 e il vostro program¬ 
ma (se avete trasferito il vostro pro¬ 
gramma), fra il vostro programma e 
LOMEM, fra HIMEM e il DOS, fra 
il DOS e i suoi buffer di file, o nel¬ 
la language card. In ProDOS riman¬ 
gono sicuri soltanto tre di quei po¬ 
sti: a pagina 3, fra $800 e il vostro 
programma e fra il BASIC.SY¬ 
STEM e i suoi buffer dei file. 

E allora come e dove possiamo im¬ 
magazzinare in ProDOS le subrouti¬ 
ne in linguaggio macchina? Molti 
programmi usano la pagina 3 per le 
subroutine brevi. L’utilizzo dell'area 
che va da $300 a $3CF non causerà 
alcun problema con il ProDOS. Se 
vi occorre un maggiore spazio la so¬ 
luzione più sicura e più facile è quel¬ 
la di trasferire in su nella memoria il 
vostro programma in Applesoft, e 
mettere le routine nello spazio che a- 
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2670 

2680 

2690 

2700 


2710 

2720 

2730 

2740 

2750 

2760 

2770 

2780 

2790 

2800 

2810 

2820 

2830 

2840 

2850 

2860 

2870 


2880 

2890 


2900 

2910 

2920 

2930 

2940 

2950 


2960 

2970 


2980 

2990 

3000 


3010 


3020 

3030 

3040 

3050 


3060 

3070 

3080 

3090 

3100 

3110 

3120 

3130 


3140 


REM " Cambia il nome di una categoria 
REM 

HOME : VTAB 22: PRINT TAB ( 6)"Quale nome vuoi cambiare?": G 


OSUB 2140 

HTAB 1: VTAB 22: CALL - 958: PRINT : PRINT TAB( 25)". 

.HTAB 1: POKE 34,22: INPUT "Inserire una nuova c 

ategoria>";B$: TEXT : GOSUB 1710: GOSUB 1600: IF NOT LEN ( 
B$) THEN 2430: REM "15 PUNTI 
IF LEN (BS) > 15 THEN 2700 

GOSUB 70: PRINT "Cambi "P$(C,0) M in "B$"?";: VTAB 24: HTAB 1 
3: PRINT "(conferma S/N)"; 

GOSUB 80: IF A$ = "N" THEN 2430 
IF ASC {A$) = 27 THEN 350 
IF A3 > < "S" THEN 2730 

GOSUB 1600: PRINT TAB ( 12)" (C)onservi o (E)limini": PRINT 
TAB ( 5)"il contenuto della lista ";P$ (C, 0)"?" ; 

GOSUB 80: IF A3 < > "C" AND A3 < > "E" THEN 2770 

HOME : VTAB 12: PRINT TAB( 2)"Sto cambiando il nome alla ca 

tegoria" 

PS (C,0) = BS:P = 0: IF A3 = "C" THEN 2820 

FOR P = 1 TO 40: IF NOT LEN (P$(C,P)) THEN NEXT : GOTO 28 
20 

P$(C,P) = "":P% (C, P) = 0: NEXT 

GOTO 2430 

REM 

REM " Aggiunge una categoria 
REM 

IF CTG < 40 THEN 2890 

HOME : GOSUB 1590: VTAB 9: PRINT CHR3 (7)"Hai raggiunto il 
limite di 40 categorie.Puoi aggiungere una nuova categoria s 
olodopo aver eliminato una categoria nella lista." 

VTAB 23: GOSUB 1610: GOTO 2430 

VTAB 12: HTAB 1: CALL - 958: VTAB 16: PRINT TAB( 25)". 

.";: HTAB 1: POKE 34,15: INPUT "Inserisci una nuova 

categoria>";B3: TEXT : GOSUB 1710: IF NOT LEN (B3) THEN 2 
430: REM "15 PUNTI 
IF LEN (BS) > 15 THEN 2890 

GOSUB 70 :C = CTG:PS(C,0) = B3:P%(C,0) = 1: FOR P = 1 TO 40:P 
$(C,P) = "":P%(C, P) = 0: NEXT :CTG = CTG + 1: GOTO 2430 
REM 

REM " Prima esecuzione di SHOPPER. 

REM 

POKE 216,0: PRINT :P = PEEK (222): IF P < 5 OR P > 7 THEN 
PRINT "ERRORE N."P" A LINEA N." PEEK (218) + PEEK (219) * 2 

56: END 

P = 0:C = 0:A = 0 :B = 0:HT = 36:FS = "SHOPPER.VARS":D3 = CH 
R$ (4) 

HOME : GOSUB 1590: PRINT : PRINT : PRINT "Puoi:": PRINT : PR 
INT TAB( 8)"(I) Inserire categorie": PRINT : PRINT TAB( 8) 
"(Q) Finire": HTAB 1: VTAB 1: GOSUB 80: IF A3 = "Q" THEN 314 
0 

IF Aè > < "I" THEN 2970 

DIM P3 (39,40),P%(39, 40),PR%(39) :CTG = 0 

HOME : GOSUB 1590: PRINT : PRINT TAB( 8)"================== 

======": PRINT TAB ( 8)"! Preparazione Shopper !": PRINT TA 

B( 8)"========================": PRINT : PRINT : PRINT : REM 

"24/24 SEGNI = 

PRINT TAB ( 22)"." : PRINT : PRINT TAB ( 9) "Pre 

mi RETURN per finire": VTAB 15: POKE 34,14: HTAB 9: INPUT "N 
ome categoria->";B3: TEXT : GOSUB 1710 : PS(CTG,0) = B3: REM " 


15 PUNTI 

IF NOT LEN (PS(CTG,0)) AND CTG THEN PRINT DS"CREATE"F$",T 
VAR": GOTO 250 

IF NOT LEN (PS(CTG,0)) THEN 2630 

IF LEN (PS (CTG,0)) > 15 THEN VTAB 20: PRINT CHRS (7)"Voce 
troppo lunga.": PRINT : PRINT : GOSUB 1610: GOTO 3000 
BS = PS(CTG,0): GOSUB 70:P$(CTG,0) = B$:P%(CTG,0) = 1:CTG = 
CTG + 1: IF CTG = 40 THEN PRINT D$"CREATE"F$",TVAR"GOTO 2 
50 

GOTO 3000 
REM 

REM " Fine programma 
REM 

ONERR GOTO 3120 

VTAB 1: PRINT : PRINT D$"UNLOCK"F$: PRINT D$"STORE"F$: PRINT 
D$"LOCK"F$: GOTO 3140 

POKE 216,0:P = PEEK (222): IF P < 6 OR P > 9 THEN 2950 
HOME : VTAB 10: PRINT CHRS (7)"Controlla il drive prego,": 
PRINT : PRINT "e prova ancora a uscire da Shopper.": VTAB 23 
: GOSUB 1610: GOTO 350 


POKE 216,0: HOME : END 


Checksum del listato 1 

NOME FILE: 

SUPER.SHOPPER.PRODOS 

TIPO: A 


LUNGHEZZA: 

2554 

CHECKSUM : 

F8 


vete così liberato. Anche se la cosa 
non è documentata nei manuali del 
ProDOS, il ProDOS si comporta co¬ 
me il DOS quando cambiate il punta¬ 
tore di M inizio del programma Apple¬ 
soft" alle locazioni 103 e 104 nella 
pagina zero. Prendiamo in considera¬ 
zione un esempio che mostra come 
farlo. 

Supponiamo di avere una subrouti¬ 
ne in linguaggio macchina in un file 
binario chiamato ML, lungo 1K. li¬ 
na volta riassemblato per girare a 
$800 e salvato con BSAVE come 
ML il programma in Basic dev'esse¬ 
re modificato. I programmi in Apple¬ 
soft cominciano solitamente in me¬ 
moria a pagina 8 ($800) e procedono 
verso l’alto. Spostando un program¬ 
ma di quattro pagine a pagina 12 
($C00) si rende disponibile uno spa¬ 
zio 1K da $800 a $BFF. 

Il modo più facile per spostare un 
programma è quello di cambiare il 
puntatore a 103,104 e poi dire al 
ProDOS di caricare ed eseguire nuo¬ 
vamente il programma: 


10 PG = 12 : REM PAGINA CUI 
TRASFERIRE L’INIZIO DEL 
PROGRAMMA 

20 IF PEEK (104) = PG THEN 60 
30 POKE 104,PG : POKE 103,1 
40 POKE PG * 256,0 
50 PRINT CHR$(4) ”RUN MIO 
PROGRAMMA" 

60 PRINT CHR$(4) "BLOAD ML" 
70 REM INIZIO EFFETTIVO DEL 
PROGRAMMA 


Per completare questa conversione 
dovrete cambiare gli eventuali PE¬ 
EK, POKE e CALL in modo che ri¬ 
flettano la nuova locazione della vo¬ 
stra routine in linguaggio macchina. 
Se il vostro programma è lungo più 
di 6K e usa la pagina 1 dell’alta riso¬ 
luzione noterete probabilmente la 
scomparsa della fine del programma 
quando viene emesso il primo HGR. 
La soluzione consiste nel trasferire 
il programma appena sopra la pagi¬ 
na 1 Hi_Res a $4000 (pagina $40 
ossia pagina 64 decimale). Cambiate 
la linea 10 in PG = 64, ed ecco 
fatto. Questo metodo di spostare il 
programma in Basic per liberare me¬ 
moria è semplice e rapido. 

Il metodo finale di mettere una su¬ 
broutine in linguaggio macchina fra 
il BASIC.SYSTEM e i suoi file di 
buffer è complicato, e adatto soprat¬ 
tutto agli utenti avanzati che voglia¬ 
no aggiungere comandi al ProDOS. 
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Listato 2. Super Shopper 


DOS 3.3 


ProDOS 


Apple Ile 


Modifiche del listato 1 per il DOS 
3.3. Introdurre prima il listato 1; 
poi eliminare (DEL) le seguenti linee: 

1330, 1360, 1370, 2960, 3120 e 3130. Infine 
aggiungere o sostituire le linee visibili qui sotto. 


Apple Ile 


9 REM "Questa versione funziona in DOS 3.3 o 
ProDOS 

105 P - 0 :C = 0 : A = 0:B = 0:D$ = CHRS (4) :HT = 
36:F$ = "SHOPPER DATA" 

195 PRINT D$"NOMONCIO" 

205 PRINT D$"UNLOCK"F$: PRINT D$"OPEN"F$" / LI8": 

PRINT D$"READ"F$",R0": INPUT CTG: DIM P$(3 
9, 40),PR%(39),P%(39,40):LCTG = CTG: POKE 21 
6 / 0 

210 FOR C = 0 TO CTG - 1: FOR P = 0 TO 40: PRIN 
T D$"READ"F$",R"C * 41 + P + 1: INPUT P$ (C, 
P),P%(C,P): IF NOT LEN (P$(C,P)) THEN P = 

40 

215 NEXT : NEXT : PRINT D$"CLOSE" 

700 GOSUB 3190: FOR C = 0 TO CTG - 1: FOR P = 1 
TO 40: IF P%(C,P) THEN P%(C,P) = 0: GOSUB 
3200 

705 NEXT : NEXT : GOSUB 3210: GOTO 350 
730 IF A$ = "Y" THEN P%(C,P) = 0: GOSUB 1620: G 
OSUB 3180: GOTO 760 

810 GOSUB 1650: IF NOT LEN (P$(C,1>) THEN P = 
1: GOSUB 3190: GOTO 850 

830 GOSUB 1890: GOSUB 1600: GOSUB 3190: IF P = 
NP THEN 850 

840 A = P: FOR P = NP TO A + 1 STEP - 1:P$(C,P 

) = P$(C,P - 1):P% (C,P) = P%(C,P - 1): GOSU 

B 3200: NEXT 

850 P$(C,P) = B$:P%(C / P) = B: GOSUB 3200: GOSUB 

3210: IF P = NP THEN GOSUB 1620: GOTO 510 
950 GOSUB 3190: IF P = NP THEN VP = VP - 1 

960 IF P < 40 THEN P$(C,P) = P$ (C,P + 1):P%(C,P 

) = P%(C,P + 1): GOSUB 3200: IF NOT LEN ( 
P$(C,P)) THEN GOSUB 3210: GOSUB 1600: GOTO 
500 

970 IF P = 40 THEN P$(C,P) = ,, ":P%(C / P) = 0: GO 
SUB 3200: GOSUB 3210: GOSUB 1600: GOTO 500 
1040 P$(C,P) - B$:P% (C,P) = B: GOSUB 1620: GOSU 

B 3180: GOTO 510 

1080 GOSUB 1600: PRINT TAB( 2)"Scegli l'artico 
lo da listare si/no": GOSUB 1890:P%(C,P) = 
NOT P%(C,P): GOSUB 1600: GOSUB 1620: GOS 
UB 3180: GOTO 510 

1190 GOSUB 1770: GOSUB 3190: FOR P = 1 TO 40: G 
OSUB 3200: IF NOT LEN (P$(C,P)) THEN P = 
40 

1195 NEXT : GOSUB 3210: GOTO 510 
1340 PRINT D$"PR#"PSLOT: PRINT : VTAB 14: CALL 
- 958: PRINT PINITS: IF A$ = "A" THEN PR 
INT P80$: GOTO 1380 
1350 PRINT P132$ 

2170 HC = 0: FOR C = 0 TO CTG - 1: HTAB B: PRIN 
T P$ (C,0) : NEXT 

2580 HOME : VTAB 12: PRINT TAB( 5)"Sto elimina 
ndo "P$ (C, 0) : GOSUB 3190 
2600 FOR C = C TO CTG - 2: FOR P = 0 TO 40: IF 
P$(C,P) < > P$(C + 1,P) THEN P$(C,P) = P$ 

(C + l,P):P%(C f P) = P%(C + 1,P): GOSUB 320 
0 

2605 NEXT : NEXT 

2610 CTG = CTG - 1:P = 0 

2612 IF LEN (P$(CTG,P)) THEN P$(CTG,P) « "":P% 
(CTG,P) = 0: GOSUB 3200:P = P + 1: IF P < 

41 THEN 2612 

2615 GOSUB 3220: GOSUB 3210: IF CTG THEN 2430 
2790 GOSUB 3190:P$(C/0) = B$:P = 0: GOSUB 3200: 
IF A$ = "C" THEN 2820 

2810 P$(C/P) = "":P% (C/P) = 0: GOSUB 3200: NEXT 

2820 GOSUB 3210: GOTO 2430 

2910 C = CTG:P = 0: GOSUB 70:P$(C/0) = B$:P%(C, 
0) = 1: GOSUB 3190: GOSUB 3200: FOR P = 1 
TO 40 :P$ (C,P) = "":P% (C,P) = 0: GOSUB 3200 
: NEXT :CTG = CTG + 1; GOSUB 3220: GOSUB 3 
210: GOTO 2430 

2950 POKE 216/0: PRINT : PRINT D$"CLOSE":P = P 
EEK (222): IF P < 5 OR P > 6 THEN PRINT " 
ERRORE N."P" ALLA LINEA N." PEEK (218) + 

(Continua) 


Glfem 

Corso Italia 149 ■ 34170 GORIZIA 
Telefono 0481/30909 


MIRROR TECHNOLOGIES 


MagNet 20 Disco rigido da 20 MByte interno per 
Mac. Viene fornito con MacServe software della 
Infosphere che permette: 

Multillser (sino a 16 MAC in rete AppleTalk) 
Partizione in volumi (sino a 16 volumi logici) 

Disk Cache 

Protezione con Password a livello di volume 
Spool di stampa (sino a 32 lavori) 

Print Server/Disk Server su Apple Talk 
Backup completo o incrementale e Restore 
Sistema di gestione gerarchico APPLE HFS 
Costruzione estremamente robusta. 


SEOrange Alierò 

■■ ine. 

Ora in Italia, distribuite da Elcom, le interfacce 
per stampanti della Orange Micro, California, 
U.S.A. 

HOT LINK Per collegare a Apple Ile una 
qualunque stampante parallela 
GRAPPLER C Permette una facile stampa della 
grafica su qualunque stampante parallela che 
simula una ImageWriter II 
GRAPPLER + SERIALE Finalmente semplice la 
stampa grafica, anche a colori , con ImageWriter 
II. Opzionale un Buffer sino a 64 K 
GRAPPLER + La più diffusa interfaccia per 
Apple. Più di 300.000 schede vendute. Si 
abbina ad un gran numero di stampanti e 
permette la stampa grafica con ben 27 funzioni 
IMAGE BUFFER II "turbo" per l’IMAGE WRITER 
II. 64 K di buffer espandibili a 128 K 
IMAGE MATE Permette di usare IMAGE WRITER 
Il con un PC o compatibile ed è, allo stesso 
tempo, un buffer da 64 K. 

Tutte le schede hanno un ricco manuale in 
italiano. 


THUNDERSCAN V. 3.1 


E’ ora disponibile l'ultimissima versione di 
ThunderScan. Compatibile con tutte le stampanti 
Apple. Con un adattatore ed un cavo speciale é 
ora possibile usarla anche con Macintosh Plus . 


VICOM COMMUNICATIONS SOFTWARE 


Il "Vero programma per comunicazioni” é ora disponi¬ 
bile in Italia. Permette il collegamento con tutte le ban¬ 
che dati: anche Videotel. Multitasking: contemporanea¬ 
mente potete trasmettere un file mentre ne stampate 
un'altro e ne state creando un terzo. Emulazione VT 
100. Facile da usare. In combinazione con il Modem- 
phone 1203 in offerta speciale presso gli Apple Center. 



I prodotti distribuiti da Elcom sono disponibili 
presso tutti gli Apple Center. 
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Nomi dei file e 
numeri dei volumi 

Il ProDOS ha norme rigorose per 
i nomi di file. 

Un nome di file in ProDOS deve 
sempre cominciare con una lettera, 
comprendere soltanto lettere, nume¬ 
ri e punti, e contenere al massimo 
15 caratteri. 

Fa spicco l'assenza, dal novero dei 
componenti del nome di file del Pro¬ 
DOS, dello spazio, che di solito è 
sostituito da un punto. 

Un.vero.peccato. 

Ottemperare a questa limitazione 
può essere complicato. E’ facile ab¬ 
breviare e cambiare il nome dei file 
del vostro programma: la utility 
CONVERT del ProDOS lo fa auto¬ 
maticamente per voi. 

Il problema è che i comandi DOS 
incorporati nel vostro programma 
fanno ancora riferimento ai file u- 
sando i loro vecchi nomi DOS. Sco¬ 
vare e cambiare i vecchi nomi di file 
nel programma può richiedere diver¬ 
se sedute con un buon editor di linee 
di programma. 

Cambia anche la prassi del DOS 
di far riferimento a un dischetto con 
il suo numero di volume. In Pro¬ 
DOS ci si riferisce a un dischetto 
con il suo prefix, o nome. 

Inoltre quando si dà al ProDOS un 
nome di dischetto con cui lavorare e- 
splorerà, per trovare quel dischetto, 
tutti i dispositivi di memoria in 
linea. 

I numeri di volume erano raramen¬ 
te usati nel DOS, eccezion fatta per 
gli schemi di protezione. 

Comunque se i vostri programmi 
contengono riferimenti al numero di 
volume, non dovete preoccuparvi: 
infatti non è tassativo rimuoverli, in 
quanto il ProDOS non farà che igno¬ 
rarli. 


Il comando 
<CONTROL>D 

Il ProDOS non esige più che un 
comando emesso dall'intemo di un 
programma sia preceduto da un ritor¬ 
no carrello. Il comando sarà eseguito 
quando il cursore di output è in qual¬ 
siasi punto dello schermo. Perfino i 
GET non turbano il ProDOS. C’è 
però un trucco da tener presente. Il 
primo carattere della stringa di co¬ 
mando dev'essere <CTRL>D, senza 
eccezioni. 

Potete usare PRINT CHR$(4)"co- 
mando", o D$=CHR$(4):PRINT D$ 
"comando”, o perfino incorporare un 
invisibile <CTRL>D tra le virgolet¬ 
te alte ("”) in un’istruzione PRINT. 

Ma se userete l'accorgimento D$= 
CHR$(13)+CHR$(4) esso non fun¬ 
zionerà. Togliete il "CHR$(13)+" e 
sarete a posto. 

Variazioni nei 
comandi del DOS 

Il ProDOS ha riorganizzato i co¬ 
mandi a disposizione dei programma- 
tori. Alcuni comandi sono scompar¬ 
si, alcuni sono cambiati e qualcuno 
è nuovo. Ecco i comandi del DOS 
che il ProDOS non usa: 

MON, NOMON e MAXFI- 
LES - MON e NOMON aiutano 
nel debugging dei programmi che u- 
sano i comandi DOS. Il ProDOS 
non supporta nè l'uno nè faltro; i- 
gnora i comandi NOMON, e il co¬ 
mando MON provoca un messaggio 
di SYNTAX ERROR. MAXFILES 
imposta il numero massimo dei file 
che possono essere aperti simultanea¬ 
mente in DOS. E' utilizzato soprat¬ 
tutto per recuperare memoria per le 
routine in linguaggio macchina, e- 
mettendo un comando MAXFILES 
1. In ProDOS si possono aprire in u¬ 


na sola volta fino a otto file, ed es¬ 
si consumano memoria solo quando 
sono effettivamente aperti. Perciò 
MAXFILES non è più necessario ed 
è bene eliminarlo. 

FP, INT e INTT - Il ProDOS 
supporta solo l'Applesoft della 
ROM, e quindi non ha più bisogno 
di commutare fra linguaggio e lin¬ 
guaggio. Dite addio a FP e INT. An¬ 
che INIT è scomparso, a causa della 
grande varietà di dispositivi possibi¬ 
le (e quindi formattabile) in Pro¬ 
DOS , e della piccola quantità di me¬ 
moria disponibile per la formattazio¬ 
ne delle routine. Adesso è il pro¬ 
gramma FILER del sistema Pro¬ 
DOS a occuparsi dei compiti di ini- 
zializzazione. La scomparsa di INIT 
significa anche che un dischetto il 
quale carichi PRODOS e BA¬ 
SIC.SYSTEM deve avere il proprio 
programma di avviamento denomina¬ 
to "STARTUP". Quando convertite 
i programmi in ProDOS, o il pro¬ 
gramma convertito, o un program¬ 
ma di menù, o semplicemente un 
programma per far girare il vostro 
programma, dev'essere chiamato 
STARTUP. 

Sono stati potenziati quattordici 
comandi del DOS, diversi dei quali 
rivestono un particolare interesse 
quando si convertono i programmi 
DOS in ProDOS. Essi sono: 

CATALOG e CAT - CATA- 
LOG usa un nuovo formato di visua¬ 
lizzazione, con circa 80 caratteri per 
riga. Questo display comprende più 
informazioni di un catalogo DOS, 
ed esse comprendono lunghezza e in¬ 
dirizzo del file, lunghezza del record 
(per i file di testo) e le date di crea¬ 
zione e di ultima modifica del file. 
La versione breve del comando, 
CAT, crea un catalogo più corto, su 
40 colonne, contenente meno infor¬ 
mazioni. Il catalogo CAT è più si- 


PEEK (219) * 256: END 

3020 IF NOT LEN (P$(CTG,0)) AND CTG THEN 3065 

3050 B$ = P$(CTG,0): GOSUB 70:P$(CTG,0) = B$:P% 
(CTG,0) = 1 :CTG = CTG + 1: IF CTG = 40 THE 
N 3065 

3065 LCTG = CTG: HOME : VTAB 12: PRINT TAB ( 10 
)"Sto creando il file...": GOSUB 3230: GOT 
O 250 

3100 VTAB 1: PRINT : IF CTG = > LCTG THEN PRI 

NT D$"LOCK"F$: GOTO 3140 

3110 HOME : VTAB 12: PRINT TAB ( 3)"Sto ottimiz 
zando i dati della spesa": GOSUB 3230: PRI 
NT D$"LOCK"F$ 

3150 REM 

3160 REM " Scrittura Dati su disco (versione 
DOS) 

3170 REM 

3180 GOSUB 3190: GOSUB 3200: GOSUB 3210: RETURN 

3190 VTAB 1: PRINT : PRINT D$"OPEN"F$",L18": RE 


TURN 

3200 VTAB 1: PRINT D$"WRITE"F$",R"C * 41 + P + 
1: PRINT P$ (C,P) : PRINT P%(C,P): RETURN 
3210 PRINT D$"CLOSE": RETURN 

3220 PRINT D$"WRITE"F$",R0": PRINT CTG: RETURN 
3230 GOSUB 3190: GOSUB 3210: PRINT D$"DELETE"F$ 
: GOSUB 3190: GOSUB 3220: FOR C = 0 TO CTG 
- 1: FOR P = 0 TO 40: GOSUB 3200: NEXT : 
NEXT : GOSUB 3210: RETURN 


Checksum del listato 2 

NOME FILE: 

SUPER.SHOPPER.DOS 

TIPO: A 


LUNGHEZZA: 

2774 

CHECKSUM : 

6 C 
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mile al catalogo del DOS, e in un 
programma convertito è probabile 
che dobbiate cambiare i CATALOG 
in CAT. 

IN# e PR# - A questi due co¬ 
mandi è stato dato un nuovo messag¬ 
gio d'errore con cui giocare: DEVI- 
CE NOT CONNECTED (dispositi¬ 
vo non collegato). Questo significa 
che i programmi che si rivolgono a 
dispositivi periferici (stampanti, 
schede 80 colonne e così via) posso¬ 
no individuare se nell'Apple è inseri¬ 
ta una scheda d'interfaccia. Ne sono 
un esempio le linee 1320-1370 del 
listato 1. 

CHAIN - In DOS per concatena¬ 
re un programma con un altro dove¬ 
vate ricorrere a uno speciale program¬ 
ma di utilità. 

In ProDOS vi basta emettere il co¬ 
mando come fareste con un "RUN 
nomefile", e il nuovo programma si 
sovrapporrà a quello vecchio, con 
tutte le variabili intatte. 

Potete persino specificare il nume¬ 
ro di linea da cui cominciare a ese¬ 
guire il programma concatenato, u- 
sando il nuovo parametro di simbo¬ 
lo "@ M . 

Per esempio: 


200 PRINT CHR$(4) "CHAIN PAR 
T2,@50"_ 

conserva tutte le variabili correnti, 
carica il programma PART2 e co¬ 
mincia l’esecuzione a linea 50. Se 
non c’è linea 50 il ProDOS usa la 
prossima linea disponibile. 

I comandi dei file di testo 
- Ci sono stati molti cambiamenti 
nei comandi dei file di testo, ma 
quelli più suscettibili di avere un im¬ 
patto sulle vostre conversioni di pro¬ 
grammi sono i comandi concernenti 
il modo in cui sono gestiti i file a- 
perti. Il ProDOS, per esempio, gene¬ 
ra un messaggio d'errore se il vostro 
programma finisce e ci sono ancora 
file aperti. Inoltre il ProDOS è mol¬ 
to più pignolo su ciò che potete fa¬ 
re per aprire i file. Per esempio non 
potete eliminare con DELETE un fi¬ 
le aperto. E non funzionerà il vec¬ 
chio trucco del DOS, di assicurarvi 
che state scrivendo in un nuovo file 
facendo OPEN-DELETE-OPEN- 
WRITE. I vostri sforzi avranno co¬ 
me risultato un messaggio d'errore 
FILE BUSY (file occupato). Dovete 
usare la sequenza OPEN-CLOSE- 
DELETE-OPEN-WRITE. 


C'è un problema analogo per i file 
EXEC. In DOS potevate fermare l'E- 
XEC dall'interno di un programma 
con un CLOSE. In ProDOS un file 
che viene eseguito da un program¬ 
ma rimane attivo fino a quando o il 
programma termina o fa qualcosa 
per prelevare un carattere di troppo 
dal file EXEC, causando un errore. 
Ricordate che quando un file EXEC 
è attivo qualsiasi INPUT o GET in 
un programma aggira la tastiera e 
prende il suo input dal file EXEC a- 
perto. Non potete comunicare con il 
vostro programma fino a quando il 
file EXEC sarà inattivo. E' questo 
un problema che a quanto pare non 
ha alcuna soluzione elegante, se non 
quella di evitare di fare l'EXEC dei 
file dall'interno dei programmi. 

Modifiche ai 
codici di errore 

Per quanto l'Apple abbia fatto di 
tutto per mantenere identici a quelli 
del DOS i codici d'errore che ricavate 
da un PEEK(222) è stata necessaria 
qualche modifica. 

In linea generale può darsi che sia¬ 
no necessari alcuni piccoli cambia- 
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Tavola 2. Lista d'impiego delle variabili 

Variabile 

Funzione 

A 

Impiego generale 

A$ 

Impiego generale 

AN$ 

Modo programma 

B 

Impiego generale 

B$ 

Impiego generale 

C 

Categoria corrente (0-39) 

CLM 

Numero delle colonne del tabulato 

CTG 

Numero delle categorie usate (0-40) 

D$ 

Variabile = CHFt*(4) 

F$ 

Variabile = nome file dati 

HC 

HTAB corrente per la lista categorie 

HP 

HTAB corrente per la lista prodotti 

HT 

Costante per il controllo tab stampante (=36) 

NP 

Numero dei prodotti nell'ultima lista stampata sullo schermo 

P 

Prodotto corrente (0-40) (0 = nome categoria) 

PI 32$ 

Codice controllo stampante 132 colonne 

P80$ 

Codice controllo stampante 80 colonne 

PCS 

Codice controllo stampante per evidenziare nome categoria 

PFF$ 

Codice controllo per avanzamento modulo 

PINIT$ 

Stringa inizializzazione stampante 

PN$ 

Codice controllo stampante per stampa normale 

PR%() 

Puntatore di matrice (usato nella stampa) 

PSLOT 

Numero slot della stampante 

P$() 

Matrice nomi prodotto (39,40) 

P%() 

Matrice marcatori prodotto (39,40) 

ve 

VTAB corrente per la lista categorie 

VP 

VTAB corrente per la lista prodotti 


menti se fate qualche intrappolamen- 
to ONERR. Altrimenti non c’è pro¬ 
blema. 

Il ProDOS offre qualche nuovo co¬ 
mando e altri potenziamenti dei co¬ 
mandi esistenti. Per amor di brevità 
qui non vengono presentati tutti, ma 
solo quelli che hanno qualche rifles¬ 
so sul funzionamento in ProDOS 
del vostro programma in DOS. Per 
avere altre informazioni consultate 
la rubrica Applihelp su Applicando 
n.17 a pag.88. 

I cambiamenti 
in Applesoft 

Oltre a modificare i comandi DOS 
il ProDOS ha cambiato anche il mo¬ 
do in cui funzionano alcuni dei co¬ 
mandi dell'Applesoft: 

HIMEM - Questo comando era 
ed è usato soprattutto per proteggere 
le routine in linguaggio macchina 
dalla sovrascrittura in memoria. Pur¬ 


troppo il metodo è interamente diver¬ 
so in ProDOS. E’ meglio rimuovere 
dal vostro programma gli eventuali 
HIMEM. Se vi occorre spazio per le 
routine consultate più sopra il para¬ 
grafo sull’uso della memoria. 

X=FRE(0) - Rimane un coman¬ 
do valido dell'Applesoft, e funziona 
esattamente come prima. Il guaio è 
che è di una lentezza glaciale! Il Pro¬ 
DOS provvede automaticamente a u- 
na garbage collection molto veloce, 
e quindi potrete probabilmente to¬ 
gliere da un programma che state 
convertendo le eventuali istruzioni 
FRE(O). Se per qualche ragione vole¬ 
te forzare la garbage collection usa¬ 
te il comando PRINT CHR$(4) 
"ERE". 

Per controllare quanta memoria li¬ 
bera vi rimanga fate: 


PRINT CHR$(4)’’FRE":X=(PEEK 
(111)+PEEK(112)*256)-(PEEK 


E’ molto, molto più veloce. 

TRACE e NOTRACE - H 
DOS soffocherebbe con questi due 
messaggi, e farebbe cose strane se a- 
priste i file di testo mentre TRACE 
è attivo. 

Il ProDOS è stato in gran parte 
guarito di questi problemi. 

I pericoli 
del ProDOS 

Ci sono alcune cose da cui guardar¬ 
vi quando convertite in ProDOS i 
vostri programmi. La più seria è che 
l'interprete Basic fornito con il Pro¬ 
DOS 1.1.1 ha un difetto di funziona¬ 
mento che causa l'attivazione del mo¬ 
do TRACE se trova una linea con 
un IF-THEN seguito da un'istruzio¬ 
ne FLASH, NORMAL, INVERSE, 
TRACE o NOTRACE. La soluzio¬ 
ne consiste nel mettere un segno di 
due punti fra il THEN e l'istruzione 
seguente. 

Un altro fenomeno che lascia per¬ 
plessi è l'improvvisa sparizione del¬ 
le variabili, senza preavviso. Non si 
tratta di un difetto di funzionamento, 
ma di una caratteristica non docu¬ 
mentata. 

Premendo <RESET>, per esem¬ 
pio, si cancellano le variabili. Inol¬ 
tre se siete in Monitor e tornate al 
Basic con il consueto 3D0G le vo¬ 
stre variabili saranno cancellate. E' 
probabilmente più sicuro seguire la 
via <CTRL>C <RETURN> per tor¬ 
nare dal Monitor al Basic. 

Il ProDOS Versione 1.1.1 ha an¬ 
che un nuovo comando, che dev'esse¬ 
re ancora documentato. E' il coman¬ 
do BYE, che viene utilizzato per u- 
scire dall'interprete Basic e far girare 
un programma di altro sistema. 
Quando viene eseguito BYE vengo¬ 
no visualizzati i prompt che sono u- 
sati per uscire dai programmi FI- 
LER o CONVERT, e che vi chiedo¬ 
no il prefix e il nome di file della 
prossima applicazione. Questo co¬ 
mando rende possibile modificare la 
linea 3140 di Super Shopper in mo¬ 
do che finisca con un BYE, portando 
così senza intoppi alla successiva ap¬ 
plicazione. 

f “ \ 

Questo programma è disponibile 
su dischetto. L’elenco, i prezzi 
e le modalità d’ordine di questo 
e degli altri dischetti disponibili 
sono riportati nella rubrica 
Disk Service. 

^_ J 
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Lo spirito deduttivo è l'arma con cui condurre questa fida al tiranno di Ra- 
dion, in un avvincente gioco di strategia per Macintosh. 


Dentro la reggia 
e dietro tante porte 


Un pallido puntino di luce brilla 
per un istante nell'opprimente cielo 
che sovrasta i possedimenti imperia¬ 
li. Il mercante Breothiano sta ripar¬ 
tendo per una missione su un piane¬ 
ta straniero. Ti sembra di sentire il 
pulsare dei suoi motori quando l’a¬ 
stronave lascia l'orbita di Radion. U- 
na folata di nostalgia affiora sulle on¬ 
de di un vinaccio da quattro soldi. 
Questo è il destino di tutti gli amba¬ 
sciatori, pensi soffocando l'impulso 
di lamentarti. L'astronave scompare, 
e con lei se ne va il Capitano Men- 
teur e la sua ciurma. 

Ambasciatore! Come avresti potu¬ 
to saperlo quando hai firmato per 
questo lavoro? Promosso da Appren¬ 
dista musicista di terza classe ad Am¬ 
basciatore su Radion, con un sorriso 
e una pacca sulla spalla dal Capita¬ 
no. Un attimo prima stavi suonan¬ 


do la chitarra nel cortile della caser¬ 
ma, e due ore dopo eri nel castello 
imperiale, sede della Corporazione 
intergalattica dei mercanti e dei ban¬ 
chieri, valigie alla mano. 

Ambasciatore su Radion... ovun¬ 
que possa essere Radion. 

Una fitta nelle spalle ti scuote dai 
sogni di gloria. Un'altra puntura. Ti 
volti con fare battagliero. Dietro di 
te, di fronte a una co- ^ 
struzione che sembra 
una sputacchiera se¬ 
midistrutta, si trova 
un tritone deforme. 

Ha con sè un lucci 
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cante scudo cristallino e un'affilatis¬ 
sima alabarda. Cerchi di prendere il 
tuo Ultralator per decifrare i borbot¬ 
tìi della lucertola, ma il tritone ti fa 
segno di proseguire agitando l'alabar¬ 
da. Non c'è bisogno del traduttore, 
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Figura 1. La griglia di gioco e la griglia per gli appunti. 


capisci benissi¬ 
mo: ti ordina di 
passare attraverso 
r uno stretto passaggio. 
Come farebbe ogni 
buon Ambasciatore tralasci le anghe¬ 
rie per un trattamento così barbaro, 
con un senso di superiorità verso 
quel bambinesco selvaggio. Appena 
oltrepassi il cancello senti la porta 
sbattere alle tue spalle. Ti trovi in 
una grande stanza, dalle pareti e dal 
soffitto ricoperti di specchi. Al cen¬ 
tro del locale c'è un'immensa costru¬ 
zione intarsiata di passaggi. Dietro 
le pareti senti un borbottio sommes¬ 
so. Ti volti e noti un sottile fogliet¬ 
to di carta appeso a un muro. 

Lo leggi: " Benvenuto nella sala- 
giochi del Tiranno di Radion. Lo 
scopo del gioco è trovare le guardie 
nascoste alTinterno della costruzione 
nera. Se le trovi tutte hai vinto, altri¬ 
menti hai perso. Oppure , per rendere 
più interessante il gioco: vinci e ri¬ 
marrai in vita, perdi e ti lasceremo 
in pasto alla folla qui fuori... Qual- 
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cosa in più di una sfida!" Inghiottì 
in fretta l'ultimo sorso di vino. Sì, 
dovrai farcela, dovrai vincere, e atten¬ 
dere in questo inferno affollato di tri¬ 
toni il ritorno dell'astronave Breotha- 
na... Per digitare il listato del pro¬ 
gramma, caricate un disco con la ver¬ 
sione binaria o decimale del Microso¬ 
ft Basic 2.0 o 2.1, fate due volte cli¬ 
ck sull'icona del Basic. Apparsa la fi¬ 
nestra di List, battete il programma 
del listato 1 e salvatelo con il no¬ 
me che preferite. 


Listato 1. Radion Tyrant 


' Radion Tyrant by Duff Caldewey 
' ©1986 Applicando & Microsparc. Ine. 

' Microsoft BASIC 2.0 e 2.1 (binario) 

CLS 

CLEAR , 27000 
WINDOW CLOSE 1 
DEFINT a-z 

ON MENU GOSUB getMenu 

' Dimensiona le matrici 
DIM gray(3), last It em (5 ) , grid(2,9,9), watch(33) 

DIM guard(17), zap(17), bounce(17), miss(17) / inGrid(17), outGri • 
d (17) 

DIM title$ (2) 


Alcune righe del listato sono 
state spezzate per esigenze di 
impagmazione: 
quando incontrate il simbolo • 
continuate a battere SENZA 
PREMERE <return> 


Come si gioca 
a Radion Tyrant 


' Legge i dati per il cursore a orologio 
RESTORE 10 

FOR j = 0 TO 33 : READ watch ( j) :NEXT 
CALL SETCURSOR(VARPTR(watch(0))) 


All’inizio della partita vi verranno 
presentate due griglie di 8 x 8 quadra¬ 
ti, una barra dei menù e cinque me¬ 
nù. La griglia nera, sulla sinistra, in¬ 
titolata Griglia Radion, è la rappre¬ 
sentazione bidimensionale dell'edifi¬ 
cio nero. La griglia bianca sulla de¬ 
stra è la Griglia Test. Entrambe le 
griglie sono circondate da quadrati di 
richiesta. Il gioco vero e proprio si e- 
segue sulla Griglia Radion, mentre 
la Griglia Test è una specie di bloc¬ 
co per appunti che vi servirà per vi- 


' Inizializza le finestre 

WINDOW 2 /'Griglia di test",(260,50)-(490,300),4 

WINDOW 1, , (10,50)-(240, 300),4 

WINDOW OUTPUT 1 

title$(l)="GRIGLIA RADION" 

title$(2)“"GRIGLIA TEST" 

' Inizializza le pedine 
FOR j =0 TO 17 : READ zap(j):NEXT 
FOR j=0 TO 17:READ bounce(j):NEXT 
FOR j=0 TO 17 : READ guard(j) :NEXT 
FOR j=0 TO 17-.READ inGr id ( j ) : NEXT 
FOR j“0 TO 17 : READ outGrid(j) :NEXT 

FOR j = 0 TO 3 

gray(j) = -21931 

NEXT 


Tavola 1. Descrizione del programma 


ROUTINE DI INIZIALIZZAZIONE. 

Crea spazio neltheap per PMBasic, rimuove la finestra inizia¬ 
le, inizializza il controllo dei menù, le matrici, legge i dati per 
le icone e i segnalini. 

ROUTINE GENERICHE 

ChicagoFont: seleziona come fonte per la stampa Chi¬ 
cago. 

MonacoFont: seleziona come fonte per la stampa Mo¬ 
naco. 

ROUTINE PER IL CONTROLLO DEGLI EVENTI. 

Controllano l'attivazione della griglia di Test o della griglia 
Radion, nelle rispettive finestre. Le altre funzioni del control¬ 
lo di eventi sono inattive, e sono state incluse nel listato per 
uniformità strutturale. 

ButtonEvent: non usata. 

EditEvent: non usata. 

ActivateEvent: controlla se una finestra è stata attivata 
e passa a essa la stampa delle informazioni. 

GoAwayEvent: non usata. 

UpdateÉvent: non usata. 

ActivateWindow: determina se una finestra da attivare è 
nuova (attraverso una chiamata a DIALOG(3)) e nel caso ve¬ 
rifica se si tratta di una finestra attiva (cioè se il programma 
è in modo gioco o in modo soluzione) e se lo è toglie l'eviden- 
ziamento alla finestra precedente e evidenzia quella nuova, 
con la routine drawLines. La nuova finestra è attivata con il 
comando WINDOW windowID. Per trasferire l'uscita alla nuo¬ 
va finestra si opera con WINDOW OUTPUT windowID. 

SUBROUTINE PER IL CONTROLLO DEI MENU'. 

Verificano le interruzioni all'esecuzione forzate da interventi 
sulla barra dei menù. Se avvengono si eseguono le azioni ne¬ 
cessarie con un GOSUB o un GOTO alle subroutine corri¬ 


spondenti. 

GetMenu: determina quale menù è stato selezionato e qua¬ 
le comando all'interno di esso è stato scelto. L'esecuzione 
del programma è modificata con il comando ON MENU'. Se la 
selezione eseguita nel menù modifica lo svolgimento del gio¬ 
co, viene posto di fianco alla voce nel menù il segno di spun¬ 
ta con il comando (MENU', menuID, itemlD,2). 

FileMenu: offre la possibilità di ripetere il gioco o di tornare 
al Finder. 

GridMenu: attiva le finestre per le due griglie. 

GuardMenu: seleziona il numero di guardie da posiziona¬ 
re, quattro o cinque. 

GameMenu: seleziona la modalità di gioco, problema o ca¬ 
suale. Se viene scelto un problema allora vengono poste nel¬ 
la griglia solo quattro guardie e si disattiva la voce Cinque 
guardie nel menù corrispondente. 

SolutionMenu: l’esecuzione del programma è trasferita al¬ 
le routine che controllano la rispettiva fase di gioco. 

ROUTINE PER IL CONTROLLO DEL MOUSE. 

I movimenti del puntatore sul video e le azioni corrispondenti 
alla pressione del bottone non sono controllate dalle routine 
DIALOG. La funzione delle routine per il mouse è principal¬ 
mente di determinare se è stata compiuta una richiesta ac¬ 
cettabile sparando un raggio nella griglia. Successivamente 
le routine trackGuard e putGuard posizionano le pedine delle 
guardie e annotano la posizione nel vettore a loro riservato 
grid(x,y,z). 

PlotMouse: annota la posizione del cursore e attende fin¬ 
ché il bottone è rilasciato. 

GridStuff: controlla la posizione del cursore per vedere se 
A) si vuole posizionare una guardia in una griglia oppure B) si 
vuole sparare un raggio. In entrambi i casi controlla che il cur¬ 
sore sia nei limiti della griglia, in caso negativo il controllo tor¬ 
na al menù principale. 
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GOSUB newGame 
GOTO ma in 

chicagoFont: 

TEXTFONT(0) 

TEXTSIZE(12) 

RETURN 

monacoFont: 

TEXTFONT(3) 

TEXTSIZE(9) 

RETURN 

buttonEvent: 

RETURN 
editEvent: 

RETURN 

aetivateEvent: 

windowID=DIALOG(3) 

GOSUB aetivateWindow 
RETURN 
goAwayEvent: 

RETURN 
updateEvent: 

RETURN 

aetivateWindow: 

IF lastT=0 THEN T$=title$(l) 
s:RETURN 

IF lastT=windowID OR solve=l 

WINDOW OUTPUT windowID 

WINDOW windowID 

MENU 2,lastT,1 

MENU 2, windowID,2 

w=lastT 

GOSUB drawLines 
w=windowID 
lastT = windowID 
GOSUB drawLines 
RETURN 
drawLines: 


:lastT=l:w=lastT:GOSUB drawLine • 
THEN RETURN 


(Continua) 


sualizzare quello che accade durante 
la partita (figura 1). Cinque menù 
controllano tutte le fasi del gioco. 

1. Menù Archivio. Potete sce¬ 
gliere Nuova partita per iniziare un 
nuovo gioco, o Esci per tornare alla 
scrivania. 

2. Menù Griglia. Attiva la gri¬ 
glia Radion o la griglia Test. 

3. Menù Guardie. Permette di 
scegliere un gioco con quattro o cin¬ 
que guardie. Inizialmente ne sono se¬ 
lezionate quattro. 

4. Menù Gioco. Potete sceglie¬ 
re di avere delle guardie piazzate a 
caso, oppure secondo una delle ses¬ 
santa combinazioni memorizzate 
(Problema). Inizialmente il gioco è 
predisposto per giocare con le posi¬ 
zioni programmate, che sono, come 
suggerisce il nome dell’opzione, ab¬ 
bastanza complesse. Si fanno però 
più chiare a mano a mano che il gio¬ 
co procede. Giocando con i problemi 
si posizionano nella griglia sempre 
quattro guardie. 

5. Menù Soluzioni. Quando 
pensate di sapere dove sono le guar¬ 
die scegliete Tentativo nel menù So¬ 
luzioni. Per indicare dove ritenete 


SUBROUTINE PER IL PIAZZAMENTO DELLE 
GUARDIE 

TrackGuard: determina quale matrice deve essere usata 
per memorizzare la posizione di una guardia. 

PutGuard: piazza le pedine delle guardie nella griglia. 

SUBROUTINE DI TEST. 

Controllano il percorso del laser aH'interno della griglia dal 
punto di ingresso al punto di uscita. Determinato il percorso 
posizionano le pedine nelle appropriate caselle. 

TopCheck: predispone i parametri per tracciare un raggio 
che parte dalle caselle sul bordo superiore o inferiore. 
CheckTPath: controlla la presenza di ostacoli sul percor¬ 
so verticale. 

CheckTBorder: controlla se una guardia ostruisce un in¬ 
gresso della griglia, in caso di un raggio sparato vertical¬ 
mente. 

SideCheck: predispone i parametri per tracciare un raggio 
sparato lateralmente. 

CheckSPath: controlla la presenza di ostacoli sul percor¬ 
so orizzontale. 

CheckTBorder: controlla se una guardia ostruisce un in¬ 
gresso della griglia, in caso di raggio sparato orizzontal¬ 
mente. 

ROUTINE DI POSIZIONAMENTO DELLE PEDINE 
PutToken: determina, controllando l'esito di uno sparo, lo 
stato del gioco, la finestra attiva nella quale devono essere 
posizionate le pedine. 

PutRGrid: posiziona le pedine in modo PSET o Copy. 
PutTGrid: posiziona le pedine con un XOR (fondo nero pe¬ 
dinabianca). 

ClearToken: cancella le pedine presenti scrivendo su di 
esse con un XOR, chiamando le subroutine ClearZap, Clear- 
Bounce e ClearMiss. 

GetMiss: carica le pedine nella matrice relativa, leggendo 
le informazioni contenute alla linea 20 dei DATA. 

LOOP PRINCIPALE. L'unico comando che gestisce gli 


interrupt usato è ON MENU', poi la routine principale control¬ 
la eventuali DIALOG e chiama le subroutine corrispondenti. 

Main: 

CheckMouse: trasferisce l'esecuzione a PlotMouse se è 
stata eseguita un'azione con il mouse. 

CheckDialog : controllo e chiamata di altre subroutine. 

ROUTINE PER I PARAMETRI DI GIOCO 

NewGame: riporta i menù alla condizione iniziale, cancella 
le finestre e ritraccia le griglie con DrawGrid, poi riposiziona 
i flag di gioco. 

SetGame: inizializza una partita leggendo i dati alla linea 
30 se si è scelto un problema (setPuzzle), o sistemando ca¬ 
sualmente le guardie (setRandom). 

FirstShot: disattiva i menù Guardie e Gioco, attiva nel me¬ 
nù Soluzioni le voci Tentativo e Mi arrendo... dopo che il pri¬ 
mo colpo è stato sparato. 

ROUTINE DI DIALOGO 

ClearWindow: trasforma la griglia di test in un box di dia¬ 
logo. 

ShotOut: tutte le pedine per i colpi a vuoto sono state usa¬ 
te. Termina il gioco. 

ShowSolution: sistema le guardie con un PUT nella loro 
posizione fisica, in corrispondenza con la loro posizione lo¬ 
gica (in PSET o in Copy), poi termina il gioco. 
GuessSolution: azzera il flag di soluzione, così che le 
guardie possano essere tracciate aH’interno della Griglia Ra¬ 
dion (in grid(0,x,y)). Apre la finestra n. 3 e scrive un mes¬ 
saggio che indica il cambiamento nella modalità di gioco. 
ScoreGame: confronta grid(0,x,y) con arid(1,x,yV Conta 
i colpi sparati, le guardie trovate e i colpi. Elabora il punteg¬ 
gio ottenuto e lo mostra nella rispettiva finestra. 

DATI 

Linea 10: dati per il cursore, l'orologio, i colpi, i rimbalzi, le 
guardie, il segno di raggio in ingresso e in uscita. 

Linea 20: dati per le sedici pedine di colpi a vuoto. 

Linea 30: dati per i problemi. 
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Interludio 


Grafica Interattiva 
per APPLE e 
DEC prò 

v. Borgo Melano 27 
51100 Pistoia 
tei. (0573) 

31307-8 



WINDOW OUTPUT w 

PENMODE(10) 

FOR j = 3 TO 13 STEP 2 
CALL MOVETO (l,j) 

CALL LINETO (115-( (LEN (title$(w))/2)*8),j) 

CALL MOVE ((LEN(title$(w)))*8,0) 

CALL LINETO (228,j) 

NEXT 

RETURN 

* 

getMenu: 

menuID = MENU(0) 
which = MENU(1) 

MENU menuID,0,1 'toglie evidenziamento 

MENU menuID,lastItem(menuID),1 

IF menuID > 2 AND menuID < 5 THEN MENU menuID,which,2 
lastItem(menuID) = which 

ON menuID GOTO fileMenu, gridMenu, guardMenu, gameMenu, solu • 
tionMenu 

RETURN main 
fileMenu: 

IF which = 1 THEN done = 0:GOTO newGame 'nuovo gioco 
IF which = 2 THEN END 'basic 
IF which = 3 THEN SYSTEM 'scrivania 

gridMenu: 

windowID = which 
GOSUB activateWindow 
guardMenu: 

guards = which + 3 
GOSUB setGame 
RETURN main 
gameMenu: 

puzzle = which 

IF puzzle = 1 THEN MENU 3,2,0 ELSE MENU 3,2,1 
guards = 4 
MENU 3,1,2 
GOSUB setGame 
RETURN main 
solutionMenu: 

IF which = 1 THEN guessSolution 
IF which = 2 THEN showSolution 
IF which = 3 THEN scoreGame 
RETURN main 

plotMouse: 

IF done = 1 THEN RETURN 
w = WINDOW(1) 

IF MOUSE(0) = -1 THEN plotMouse 
gridStuff: 

mi = MOUSE(1) 

m2 = MOUSE(2) 

token = 0 

bCheck = 0 

q - INT((ml-15)/20) 

r = INT((m2-30)/20) 

x=q:y=r 

IF (w=2 OR solve=l) AND (q=>l AND q=<8 AND r=>l AND r=<8) T • 
HEN trackGuard 

IF r = 9 OR q = 9 THEN incNo = -1 ELSE incNo = 1 
IF (q=0 OR q=9) AND (r > 0 AND r < 9) THEN sideCheck 
IF (r=0 OR r=9) AND (q > 0 AND q < 9) THEN topCheck 
RETURN 

trackGuard: ' Posiziona le guardie nella griglia di test 

IF solve - 0 AND iPass = 1 THEN GOSUB clearToken 
IF solve = 0 THEN LET grid(2,q,r) = ABS(grid(2,q,r) - 1) 

IF solve = 1 THEN LET grid(0,q,r) = ABS(grid(0,q,r)-1) 
putGuard: 

1 = 17 + (q * 20) 

T - 33 + (r * 20) 

PUT (1,T),guard 
RETURN 

topCheck: 
hit = 0 

IF x <1 OR x > 8 THEN RETURN 
y = y + incNo 
GOSUB checkTPath 
IF token > 0 THEN putToken 

IF hit = 3 THEN LET y = y - incNo:incNo = incNo * -l:GOTO si • 
deCheck 

IF hit = 4 THEN LET y = y - incNo:GOTO sideCheck 
GOTO topCheck 
checkTPath: 

IF (y=0) OR (y=9) THEN LET token = 3:RETURN 
IF grid(w,x,y) = 1 THEN LET token = 1:RETURN 
IF grid(w,x+incNo,y) = 1 THEN LET hit = 3 
IF grid(w,x-incNo,y) = 1 THEN LET hit - 4 

IF grid(w,x+1,y) = 1 AND grid (w,x-1,y) = 1 THEN token = 2 

IF bCheck = 0 THEN checkTBorder 

RETURN 

checkTBorder: 
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bCheck = 1 

IF grid(w,q-1,r+incNo)=1 OR grid (w,q+1,r+incNo)=1 THEN token • 

- 2 

RETURN 


sideCheck: 
hit = 0 

IF y < 1 OR y > 8 THEN RETURN 
x = x + incNo 
GOSUB checkSPath 
IF token > 0 THEN putToken 

IF hit = 3 THEN LET x = x - incNo:incNo - incNo * -l:GOTO to • 
pCheck 

IF hit = 4 THEN LET x = x - incNo:GOTO topCheck 
GOTO sideCheck 
checkSPath: 

IF (x=0) OR (x=9) THEN token = 3: RETURN 
IF grid(w,x,y) = 1 THEN token = 1:RETURN 
IF grid(w,x,y+incNo) = 1 THEN LET hit = 3 
IF grid(w,x,y-incNo) = 1 THEN LET hit * 4 

IF grid(w,x,y+1) = 1 AND grid (w,x,y-1) = 1 THEN token = 2 

IF bCheck = 0 THEN checkSBorder 

RETURN 

checkSBorder: 
bCheck = 1 

IF grid(w,q+incNo,r+1) =1 OR grid (w, q+incNo, r-1 ) =1 THEN token • 

= 2 

RETURN 


putToken: 

IF w = 1 AND fFlag = 0 THEN GOSUB FirstShot 

IF w = 1 AND iPass = 1 THEN GOSUB clearToken:WINDOW OUTPUT 1 

IF w = 2 AND iPass = 1 THEN GOSUB clearToken 

1 - 17 + (q * 20) 

T = 33 + (r * 20) 

ON w GOSUB putRGrid, putTGrid 
IF token < 3 THEN RETURN 
1 = 17 + (x * 20) 

T = 33 + (y * 20) 

IF w - 1 THEN PUT (1, T),miss,PSET 

IF w = 2 THEN LET oL - l:oT - T:PUT (1,T),outGrid 

RETURN 


putRGrid: 

shots = shots + 1 

IF token - 1 THEN PUT (1,T),zap,PSET 

IF token = 2 THEN PUT (1, T),bounce,PSET 

IF token = 3 THEN GOSUB getMiss:PUT (1,T),miss,PSET 

RETURN 


putTGrid: 

iL = l:iT = T:iPass = 
IF token = 1 THEN PUT 
IF token = 2 THEN PUT 
IF token = 3 THEN PUT 
RETURN 


l:iToken = token 
(1/T),zap 
(1, T),bounce 
(1, T),inGrid 


clearToken: 

WINDOW OUTPUT 2 
iPass = 0 

ON iToken GOTO clearZap, clearBounce, clearMiss 
clearZap: 

PUT (iL,iT),zap 
RETURN 
clearBounce: 

PUT (iL,iT),bounce 
RETURN 
clearMiss: 

PUT (iL,iT),inGrid 
PUT (oL,oT),outGrid 
RETURN 

getMiss: 

FOR j = 0 TO 17 
READ miss ( j) 

NEXT 

mCount = mCount + 1 

IF mCount > 16 THEN GOSUB shotOut: RETURN main 
RETURN 

main : 

CALL INITCURSOR 
w - WINDOW(0) 

WINDOW OUTPUT w 
checkMouse: 

event = DIALOG(O) 

IF event = 3 THEN checkDialog 

IF event = 0 AND MOUSE(0) = -1 THEN GOSUB plotMouse 
GOTO main 
checkDialog: 

ON event GOSUB buttonEvent, editEvent, activateEvent, goAway • 
Event, updateEvent 

goto main (Continua) 



(a) 



« 


(b) 



□ ftif. 
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B 

(c) 


Figura 2. Tre possibili esiti di un tiro: 
riuscito (a), a vuoto (b), riflesso (c). 


possano essere fate click sul quadra¬ 
tino corrispondente nella Griglia Ra- 
dion, poi scegliete Punti nello stes¬ 
so menù per avere il punteggio. 

In qualsiasi momento, dopo aver 
fatto il primo test, potete scegliere 
Mi arrendo nel menù Soluzioni per 
vedere dove sono effettivamente le 
guardie. Queste appaiono in bianco 
nella griglia Radion, e il gioco ter¬ 
mina. 

Il giocò inizia quando sparate il 
primo raggio laser da uno dei punti 
di ingresso situati sui bordi della gri¬ 
glia. A mano a mano che la partita 
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procede, diversi menù e comandi 
vengono disattivati: saranno disponi¬ 
bili solo iniziando un nuovo gioco. 

Come è possibile 
individuare le guardie 

La premessa per compiere le neces¬ 
sarie deduzioni è che voi siate rima¬ 
sti fuori dalla costruzione nera, timo¬ 
rosi di quello che potrebbe succedere 
al suo interno: le intenzioni delle 
guardie potrebbero essere poco genti¬ 
li. Per determinare la posizione di u- 
na guardia sparate un raggio laser in 
uno degli ingressi e annotate la posi¬ 
zione da cui riemerge. 

Gli scudi cristallini delle guardie 
hanno la proprietà di catturare ogni 
sorgente luminosa che li colpisca di¬ 
rettamente (figura 2a) e possono 
deviare un raggio che passi accanto a 
loro (figura 2b). Un raggio è sem¬ 
pre deviato di novanta gradi, a meno 
che non colpisca un secondo scudo a - 
diacente (per esempio se le due guar¬ 
die fossero una di fronte all'altra nel¬ 
la figura 2a, il raggio sarebbe devia¬ 
to). Oltre a essere deviato o assorbi¬ 
to, il percorso del raggio può subire 
una terza modificazione, cioè tornare 
al punto di ingresso. 11 ritorno si ve¬ 
rifica quando: 

• le guardie sono situate in maniera 
tale da non consentire la deviazione 
del raggio ad angolo retto rispetto a 
entrambe le guardie, oppure quando: 

• un raggio è sparato da un punto di 
ingresso prossimo a una guardia si¬ 
tuata sul bordo della griglia (figura 
2c). 

In entrambi i casi il raggio non ha 
modo di sfuggire e toma al punto di 
ingresso. 

In breve ci sono tre possibilità: 

1. Colpito: un raggio diretto su uno 
scudo (2a). 

2. Mancato: il raggio viene deviato 
o passa semplicemente da un'estre¬ 
mità alfaltra della griglia (2b). 

3. Riflesso: il raggio non può essere 
deviato ad angolo retto da uno scudo 
e quindi toma su se stesso. 

Poiché non potete vedere quello 
che accade al raggio mentre attraver¬ 
sa la griglia Radion, dovete dedurre 
la posizione delle guardie annotando 
la posizione di entrata e quella di u- 
scita. Per aiutarvi in questo compi¬ 
to, il programma dispone di tre tipi 
di pedine (figura 3): segnalimi che 
indicano i colpi a segno, quelli rifles¬ 
si e (sedici tipi differenti!) quelli a 
vuoto. 


newGame: 

FOR j = 2 TO 4 

lastltem(j) = 1 

NEXT 

IF dFlag = 1 THEN GOSUB clearWindow 

' Initial menu 
MENU OFF 

MENU 1,0,1,"Archivio" 

MENU 2,0,1, "Grigiia" 

MENU 3,0,1,"Guardie" 

MENU 4,0,1,"Gioco" 

MENU 5,0,1,"Soluzione" 

MENU 1,1,1,"Nuovo gioco " 

MENU 1,2, 1, "Esci—>BASIC" 

MENU 1,3,1, "Esci—Scrivania" 

MENU 2,1,2,"Griglia Radion" 

MENU 2,2,1,"Griglia Test" 

MENU 3,1,2,"Quattro Guardie" 

MENU 3,2,0,"Cinque Guardie" 

MENU 4,1,2 ,"Problema" 

MENU 4,2,1, "A caso..." 

MENU 5,1,0, "Tentativo..." 

MENU 5, 2,0, "Mi arrendo... " 

MENU 5,3,0,"Punteggio" 

MENU ON 

lastT=0 

FOR j = 1 TO 2 

WINDOW OUTPUT j 
CLS 

CALL MOVETO(122-((LEN(title$(j))/2)*8), 13) 

GOSUB chicagoFont 
PRINT title$ ( j) 

LINE (0,17)- (250, 17) 

NEXT 

WINDOW OUTPUT 1 
LINE (15,50)-(215,210),,bf 
LINE (35, 30)-(195,230),,bf 
PENPAT(VARPTR(gray(0))) 

PENMODE(11) 

GOSUB drawGrid 

x(0)=50:x(1)=35:x(2)=211:x(3)=196 
FRAMERECT(VARPTR(x(0))) 

PENNORMAL 
WINDOW OUTPUT 2 
PENMODE(9) 

LINE (15,50)-(215,210),,b 

LINE (35, 30)-(195,230),,b 

GOSUB drawGrid 

lastT = 0 

iPass = 0 

fFlag = 0 

done = 0 

solve = 0 

shots = 0 

mCount = 0 

puzzle = 1 

guards = 4 

GOSUB activateWindow 

ERASE grid 

DIM grid(2,9,9) 

GOSUB setGame 
WINDOW 1 
WINDOW OUTPUT 1 
RETURN 

drawGrid: 

FOR j = 70 TO 190 STEP 20 
CALL MOVETO(15,j) 

CALL LINETO(215, j) 

CALL MOVETO(j-15,30) 

CALL LINETO(j-15, 230) 

NEXT 

PUT (15,30),guard 
PUT (198,30),guard 
PUT (15,214),guard 
PUT (198,214),guard 
RETURN 

setGame: 

ERASE grid 
DIM grid (2,9,9) 

RANDOMIZE TIMER 
IF puzzle = 1 THEN setPuzzle 
setRandom: 

FOR j = 1 TO guards 

q = INT (RND*8) + 1 
r = INT(RND*8) + 1 

IF grid(1,q,r) = 0 THEN LET grid(l,q,r) = 1 ELSE LET j = • 

j - 1 
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NEXT 
RETURN 
setPuzzle: 

SETCURSOR(VARPTR(watch(0) ) > 
RESTORE 30 
j = INT(RND*60) + 1 
IF j = lastNo THEN setPuzzle 
lastNo = j 
FOR x = 1 TO lastNo 
FOR y=l TO 8 
READ q 

NEXT 

NEXT 

FOR j - 1 TO 4 
READ q 
READ r 

grid(l,q,r) = 1 

NEXT 

RESTORE 20 
RETURN 

FirstShot: 

MENU 5,1,1 
MENU 5,2,1 
MENU 3,0,0 
MENU 4,0,0 
fFlag = 1 
RETURN 

clearWindow: 

IF dFlag = 0 THEN clearTwo 
dFlag = 0 
WINDOW CLOSE 3 
clearTwo: 

WINDOW 2 
WINDOW OUTPUT 2 
GOSUB chicagoFont 
CLS 

RETURN 
shotOut: 

GOSUB clearWindow 
BEEP 

CALL MOVETO (65,20) 

PRINT "Munizioni terminate!!!" 



m 

= Guardia 


» 

= Colpo riuscito 


È 

|n[. 

= Colpo riflesso 


(ni 

V 

16 differenti 
= segnalini indicano 
i colpi a vuoto 


*i 

Segnalini per i colpi 
= a vuoto usati 
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nella griglia test 

Figura 3. 1 segnalini per i colpi. 


(Continua) 


Tutto quello che dovete fare è pun¬ 
tare il quadrato da cui volete sparare 
il raggio laser e fare click su di esso. 
Macintosh determinerà cosa accade 
al raggio, segnando il punto di in- 
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MONFALCONE (GO) 

Via S. Giacomo 30 - Tel. (0481) 44260 


QUOTAZIONI SPECIALI 
NOVEMBRE - DICEMBRE 


Tutte le schede e periferiche per Apple! e 
quando diciamo TUTTE significa che 
disponiamo anche di quelle che non si trovano 
sul mercato italiano! 

Qualche esempio: 

MODEM 300-600-1200 BAUD full 
duplex con VIDEOTEL per collegarsi a 
tutte le banche dati (pagine gialle elettroniche 
comprese). Lire 300.000 

SPECIALE PER MUSICISTI: 

S&H scheda di campionamento 
vocale e sonoro per la sintesi di qualsiasi 
suono registrato con un microfono, completo 
di batteria elettronica programmabile. 

Lire 350.000 

BETA SYNTAURI sistema musicale 
POLIFONICO completo di tastiera 
professionale a 5 ottave, 2 pedali di 
espressione, 2 maxischede di sintesi, 
REGISTRATORE DIGITALE A 16 PISTE 
incorporato derivato da Alpha Syntauri®. 

Lire 1.450.000 

SPECIALE PER GRAFICI , 
ARCHITETTI, INGEGNERI: 

C.A..D. sistema grafico 

professionale per il disegno e la 
progettazione assistita dal calcolatore, 
composto da scheda 128 K RAM; joystick 
professionale, software applicativo e manuale 
in italiano. Derivato da ROBO 1500®. 

Lire 980.000 

Penna grafica per disegnare direttamente 
su schermo video qualsiasi tipo di grafica, 
ottima per COMPUTER ART. Completa di 
software. Derivata da Gibson Light Pen®. 

Lire 180.000 

Tavoletta grafica formato B4 per 
digitalizzare qualsiasi disegno o schema 
elettrico, oppure per disegno a mano libera. 
Completa di software e manuale italiano. 

Lire 250.000 

Joystick speciali per Apple 11+ con 2 trimmer 
e 2 pulsanti. Lire 43.000 

Driver Slim trazione diretta (i più affidabili)k 
per Apple + e Ile). Lire 390.000 

Mouse per Apple 11+ e Ile completo di 
software grafico. Lire 145.000 

FANTASTICO! Dischi per Apple 5" 
utilizzabili sulle due facce 5 anni di 
garanzia mod. NASHUA MD1. Lire 3.100 

Foradischi utilissimo accessorio per 
sfruttare la seconda faccia del dischetto. 

Lire 12.900 

PREZZI IVA COMPRESA 

Inoltre: Schede di espansione di qualsiasi tipo, 
Centronics, Seriali RS 232, CP/M, 
Input/output, orologio, colore, 80 colonne ecc 

RICHIEDETECI IL NOSTRO 
CATALOGO GRATUITO 

CON I PREZZI PROMOZIONALI 

Attenzione! Tutti i nostri prodotti 
sono garantiti con il sistema 
della sostituzione immediata in 
caso di guasto. 

Per qualsiasi informazione tecnica siamo a 
vostra disposizione al numero telefonico 

(0481) 44260 


Merce pronta consegna. 
Accettiamo ordini telefonici 
allo (0481) 44260. 
Spedizione gratuita per importi superiori 
a L. 90.000. Imballo gratuito. 


PRINT 

GOSUB monacoFont 

PRINT " Agiti incredulo il tuo Laser EdiTron 512-R." 

PRINT " 'Cielo! Me lo avevano garantito almeno per" 

PRINT " 3.000 colpi! Disgraziati!', imprechi sconvolto." 

PRINT:PRINT " Credo, a questo punto, tu possa scrivere" 
PRINT " alla EdiTron e chiedere un rimborso... Ma prima" 
PRINT " che tu riesca a trovare la penna, 10.000 Radion" 

PRINT " ringhianti si lanciano su di te e ti riducono in" 

PRINT " almeno 3.000 brandelli." 

PRINT:PRINT " Peccato, avevi aVche la garanzia in tasca.." 

MENU 5,0,0 

MENU 2,0,0 

GOSUB showSolution 

RETURN 

showSolution: 

IF windowID = 2 AND iPass = 1 THEN GOSUB clearToken 
IF windowID = 2 THEN windowID = l:GOSUB drawLines 
WINDOW 1 
WINDOW OUTPUT 1 
FOR q = 1 TO 8 

FOR r = 1 TO 8 

IF grid (1,q,r) = 1 THEN LET l=17+(q * 20):T=33+(r * 20): 
PUT ( 1,T),guard,PSET 
NEXT 

NEXT 

MENU 2,0,0 
MENU 5,0,0 
done = 1 
RETURN ma in 


guessSolution: 

MENU 5,3,1 
MENU 5,1,0 
solve = 1 
dFlag = 1 

WINDOW 3,, (260, 28)-(501,90),2 
BEEP 

GOSUB monacoFont 

PRINT " Wow! Bravo il nostro Eroe Galattico: dammi" 

PRINT " la tua soluzione! Ricorda che ora puoi guardare" 
PRINT " la Griglia Test, ma non puoi più usarla!" 

PRINT " La Forza sia con te..."; 

MENU 2,0,0 
WINDOW 1 
RETURN 


scoreGame: 

MENU 5,3,0 
MENU 5,1,0 
found = 0 
score = 0 
FOR x « 1 TO 8 

FOR y = 1 TO 8 

found = found + ABS(grid(0,x,y)+grid(1,x,y)=2) 

NEXT 

NEXT 

score = (25*guards) - (40*(guards-found)) - ((2*shots)+(2*mC 
ount)) 

IF score =< 0 THEN score = 10 
IF score => 100 THEN score = 100 
GOSUB clearWindow 


BEEP 

CALL MOVETO (63,18) :PRINT " •• PUNTI ••":PRINT 
PRINT " C'erano";guards;" guardie. Ne hai" 

PRINT " trovate";found;" sparando";shots;" colpi." 

PRINT 

PRINT:PRINT " Il tuo punteggio è ";:PRINT USING "###";score 
PRINT 

GOSUB monacoFont 
IF score > 85 THEN goodStuff 
IF score > 60 THEN niceStuff 
IF score > 30 THEN niceTry 
IF score > 0 THEN condolences 
goodStuff: 

PRINT " Congratulationi Tigre!!!" 

PRINT " Sua maestà l'Imperatore Galattico ti" 

PRINT " ha appena inviato una promozione, poi" 

PRINT " ti ha risbattuto nel labirinto di Radion." 

RETURN 
niceStuff: 

PRINT " Quanto basta per salvare la pelle. Grazie" 

PRINT " ai tuoi sforzi verrai servito in tavola con" 

PRINT " un contorno appetitoso, ma leggero." 

RETURN 
niceTry: 

PRINT " Appena torni alla luce ti sorprendi" 

PRINT " constatando quanto tempo hai impiegato." 

PRINT " Prima che tu riesca a capire che ora" 

PRINT " sei libero, 6 Radion gorgoglianti affilano" 


•marchi registrati 
























PRINT " 
RETURN 
condolences: 
PRINT " 
PRINT " 
PRINT " 
PRINT " 
RETURN 


le loro asce sulla tua testa..." 


Mmm.. sei andato vicino, topastro. Ma essere" 
vicini ha importanza solo in una love story..." 
Dalla tua preziosa pelle fanno 30 portafogli" 
2 borsette e un paio di stivali." 


10 ' ** Dati per orologio, raggi, riflessi, guardie, dentro, fuori 

DATA 2016,2016,2016,2016,2064,4232,4232,4236 

DATA 5004,4104,4104,2064,2016,2016,2016,2016 

DATA 2016,2016,2016,2016,4080,8184,8184,8184 

DATA 8184,8184,8184,4080,2016,2016,2016,2016,8,8 

DATA 16, 16,256, 29596,24844,22484,2336, 5456, 21396 

DATA -2,21396,5456 ,2336,22484,24844,29596,256,0 

DATA 16,16,-1,-4097,-12289,-32761,3,-32767,-12319 

DATA -4111,-4111,-12319 ,-32767,3,-32761,-12289,-4097,-1 

DATA 16,16,9218,29692,8432,8336,8440,32516,32614 

DATA 9014,8964,8548 ,9012,8964,8964,9212,8972,9998 

DATA 16,16,0,0,8319,12373,-1921,-939,-385 

DATA -171,-385,-939,-1921,12373 ,8319,0,0,0 

DATA 16,16,0,0,1151,3157,8063,16213,32639 

DATA -171,32639,16213,8063,3157 ,1151,0,0,0 

20 ' ** Dati per le pedine ** 

DATA 16,16,0,8184,8196,16482,16514,17954,20338 

DATA 24570,24570,24570 ,24570,20466,18402,8196,8184,0 

DATA 16,16,0,32736,-32752,-16432,-24496,-24496,-24496 

DATA -24496,-16424 ,-32748,-32302,-32748,-14,16421,32743,0 

DATA 16,16,0,1022,3586,4102,10238,32094,27310 

DATA 24030,31726,24030,27311,32095,4095,1023,511,0 

DATA 16,16,-1,-31807,-30751,-28685,-9253,-21547,-4105 

DATA -20491 ,-20491,-20491,-20491,-20491,-20491,-20491,-20491,-20491 

DATA 16,16,1024,1536,1792,1920,1984,2016,2032 

DATA 2040,2044,2046,2047 ,0,-1,32767,16382,8188 

DATA 16, 16,-3121,-3121,-1,-1,-1,32766, 0 

DATA 8184,8184,8184,8184,8184 ,8184,0,32766,-1 

DATA 16,16,0,960,1824,3984,8136,16356,32754 

DATA 32761,16370,8164,4040 ,1936,800,448,0,0 

DATA 16,16,0,15420,32382,-1,-1,-1,-1 

DATA 32766,16380,8184,4080,2016,960 ,384,0,0 

DATA 16,16,26752,-3841,-3925,26755,-27393,2731,1527 

DATA 1691,799,610 ,-7567,25009,8069,3977,4038,508 

DATA 16,16,7280,16476,15288,3808,4064,1984,-2 

DATA -2,-2,8176,8176,8176 ,8176,15480,30780,12312 

DATA 16,16,0,0,0,2,-32762,-2,-1 

DATA 191,159,127,31,31,31,14,0,0 

DATA 16,16,7196,5596,7636,5460,5460,13878,17377 

DATA -31775,-24781 ,-7881,-5837,-6863,-7681,-31,-65,32542 

DATA 16,16,0,992,2032,2032,2032,15342,32223 

DATA 32767,32767,32767 ,32223,15342,2032,4088,4088,0 

DATA 16,16,-1,-24839,-16387,-899,-1281,-1985,-1985 

DATA -641,-897,-961 ,-8161,-16353,-32737,-32739,-32743,-1 

DATA 16, 16, 4 064, 16368, 327 60,-4,-8164,-260, -900 

DATA -3812,29628,-16644 ,-9095,-8205,-4121,-2097,-2017,-1 

DATA 16,16,1344,2744,5460,10242,20485,8194,24573 

DATA 23213,9362,22605 ,8386,10250,5460,2728,1360,128 

30 '** Dati per i problemi 
DATA 1,2,8,1,1,8,8,6,5,3,6,5,8,6,7, 3 
DATA 7,2,7,3 6,7,6, 8,1,2,3,3,3,5,1,1 
DATA 1,1,1,2,2,2,2,1,1,2,1,4,1,7,4,4 
DATA 3,4,1,8,2,7,1,3,1,4,6,2,6, 5,8,7 
DATA 4,2,6, 2,5,7,7,7,7,3,2,7, 6,7,7,7 
DATA 1,4,2,3,3,3,5,5,5,5,6,5,7,4,7,6 
DATA 2,6, 5,4,6,7,7,3,3,4,5,4,4,6, 4,8 
DATA 7,2,2,4,5,5,4,8,5,1,6,6,6,7,6,8 
DATA 3,4,3,3,5,4,6,4,8,1,3,3,4,5,7,6 
DATA 8,2,7,3,7,4,6,7,6,1,3,7,2,3,7,7 
DATA 2,3,4,6,5,7,7,5,3,3,3,6,6,3,7,7 
DATA 1,1,1,2,8,8,7,8,1,7,3,7,5,7,7,7 
DATA 2,3,6,2,3,7,7,6,3,4,5,8,6,6,8,8 
DATA 3,3,6,2,7,4,3,7,1,5,4,1,5,8,8,4 
DATA 1,4,1,6,4,4,4,5,1,3,2,4,2,6,1,8 
DATA 1,1,6,6,6,7,7,6,5,1,6,2,7,3,8,4 
DATA 3,3,2,7,4,5,6,5,1,1,2,3,3,5,8,1 
DATA 1,5,7,2,5,4,7,4,4,4,4,6,5,4,5,6 
DATA 2,8,6,8,7,8,8,8,8,1,2,2,8,6, 2,8 
DATA 1,8,2,8,1,6,1,8,1,4,5,6, 7,6,4,5 
DATA 1,7,2,7,3,8,4,6,7,7,6,7,6,5,7,5 
DATA 4,8,5,8,6,8,8,1,8,1,2,2,1,8,8,7 
DATA 3,1,8,2,1,7,4,7,4,8,5,7,7,5,8,4 
DATA 8,1,8,2,8,6,3,3,4,3,5,3,6,3,8,6 
DATA 8,1,8,8,1,1,1,8,8,1,8,2,1,8,1,7 
DATA 1,7,1,8,2,8,1,1,4,4,5,4,6,4,4,6 
DATA 3,8,4,8,5,8,5,7,2,1,1,3,3,2,4,1 
DATA 6,8,5,8,5,7,6,7,1,3,3,3,3,5,1,5 
DATA 4,2,6,2,5,7,7,7,1,2,1,3,1,5,1,7 
DATA 1,1,2,2,3,3,3,1,5,2,6,1,7,8,1,2 
DATA 8,8,8,7,8,6,3,6,1,3,4,1,4,8,1,6 


gresso e quello di uscita con le pedi¬ 
ne corrispondenti. Potete usare la gri¬ 
glia di Test per verificare l’esattezza 
delle vostre deduzioni. 

Posizionate una guardia nella Gri¬ 
glia Test facendo click sulla casella 
in cui volete farla apparire. Se fate 
click su una casella occupata la guar¬ 
dia verrà rimossa. Sparate un raggio 
alla guardia con un click sulla casel¬ 
la di ingresso che desiderate. A diffe¬ 
renza della griglia Radion, però, so¬ 
lo un colpo alla volta verrà mostra¬ 
to. Appena lanciate un secondo rag¬ 
gio i marcatori precedenti vengono 
cancellati (troppo aiuto, il gioco di¬ 
venta insipido). 

Quando credete di aver dedotto la 
posizione delle guardie scegliete Ten- 
tativo nel menù Soluzione. A que¬ 
sto punto potete posizionare le guar¬ 
die nella griglia Radion, come face¬ 
vate nella griglia di test. Quando le 
avete sistemate tutte scegliete Punti 
nel menù Soluzione e leggete la vo¬ 
stra valutazione. 

Alcuni spunti per 
personalizzare il gioco 

Uno schema del programma è rias¬ 
sunto nella tavola 1. 

Lo spazio non permette l’inclusio¬ 
ne di uno scenario per due giocatori. 
Per aggiungerlo dovete: 

1. Creare un nuovo menù per la sele¬ 
zione. 

2. Disegnare un'interfaccia per con¬ 
sentire il posizionamento delle guar¬ 
die nella griglia (la griglia test po¬ 
trebbe essere usata a questo fine, poi¬ 
ché è creata proprio per controllare 
le guardie) e infine aggiungere delle 
istruzioni visualizzabili a comando. 

La routine di controllo è stata idea¬ 
ta con un occhio di riguardo più per 
la leggibilità che per la velocità e lo 
stile algoritmico. Come è attualmen¬ 
te svolge il suo lavoro con discreta 
velocità, ma potrebbe essere resa piu 
veloce e compatta. 

Siete ovviamente liberi di aggiun¬ 
gere nuovi problemi, usando cinque 
guardie. Più che liberi: siete incorag¬ 
giati a farlo, e potete persino ridise¬ 
gnare le pedine. 

- x 

Questo programma è disponibile 
su dischetto. L’elenco, I prezzi 
e le modalità d’ordine di questo 
e degli altri dischetti disponibili 
sono riportati nella rubrica 
Disk Service. 

> J 


® Nibbio e Applicando 
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UTILITY 



Creare e modificare i file di testo diventa decisamente più facile 
con questo programma in Applesoft, che consente 
l'editing orientato sulla linea, una funzione di ricerca e l'accesso 
diretto alla maggior parte dei comandi del dischetto. 


Gestione diretta 
per i file di testo 


Accorgersi di aver commesso un 
errore di ortografia in una linea quan¬ 
do ormai si è in ambiente di pro¬ 
grammazione significa di norma do¬ 
ver uscire dalla programmazione e ri¬ 
caricare l'Apple Writer per corregge¬ 
re il file di testo. Niente di catastro¬ 
fico, indubbiamente, ma senz'altro u- 
na piccola scocciatura che sarebbe 
bello poter evitare... 

Text File Utility, in Applesoft, 
rende quanto mai semplice scrivere e 
modificare i file di testo sequenziali. 
Gira su qualsiasi Apple II Plus, Ile 
o Ile, è interamente compatibile con 
il ProDOS e supporta la stampante 
Epson MX-80 nello slot 1. 

Utilizzo, stampa 
e salvataggio 

I comandi usati dal programma so¬ 
no per la maggior parte identici ai 
corrispondenti comandi del DOS (o 
ProDOS) e dell'Applesoft: CATA- 
LOG, DELETE, HOME, LIST, LO¬ 
OK, NEW, RENAME e UNLOCK. 
Per leggere un file con il Text File 
Utility a scopo di editing usate il co¬ 
mando LO AD nomefile. Per scrivere 
il file di testo sul dischetto, usate 
S AVE nomefile. Se dovete specifica¬ 
re con i comandi LO AD o S AVE un 
numero di drive, esso dev'essere l’ul¬ 
tima parte del comando. Inoltre è ne¬ 
cessario introdurre uno spazio fra il 
comando e il nome del file. Ecco un 
esempio della giusta sintassi: 


S AVE LISTERJD1 <RETURN> 


Ricordate che in ProDOS non ci 
possono essere spaziature nel nome 
del file e che il nome non può supe¬ 
rare i 15 caratteri di lunghezza. 

Il comando SEARCH permette, 
come implica il suo nome, di esplo¬ 
rare il file alla ricerca di qualsiasi ca¬ 
rattere o stringa di caratteri. Suppo¬ 
niamo per esempio che abbiate intro- 


Listato 1. Text file utility 


dotto in qualche punto del vostro fi¬ 
le di lavoro questa linea: 


120 PRINT "STO CARICANDO 
IL PROGRAMMA NIME, 
ATTENDI PREGO.” 


Per trovare la linea con l'errore di 
ortografia introducete il comando 


DOS 3.3 
ProDOS 

Apple Ile 
Apple Ile 


ì 

2 

3 

4 

5 

6 
7 

70 


80 

90 

100 

110 

120 


130 


140 

150 

160 

170 


TEXT FILE UTILITY 
DI RUDY A. GUY 
COPYRIGHT (C) 1986 
BY APPLICANDO & 
MICROSPARC, INC 


Apple Ile 


Apple Ile 


REM 
REM 
REM 
REM 
REM 
REM 
REM 

POKE 768,104: POKE 769,168: POKE 770,104: POKE 771,166: POKE 
72,223: POKE 773,154: POKE 774,72: POKE 775,152: POKE 776,72: 
POKE 777,96 
ONERR GOTO 1450 
GOSUB 1390 

REM -->PROGRAMMA PRINCIPALE<— 

TEXT : HOME 

VTAB 1: INVERSE : FOR I = 1 TO 80 : PRINT 
A$ = "TEXT FILE UTILITY * DI RUDY A. GUY": 

C) 1986 BY APPLICANDO & MICROSPARC": GOSUB 1380: NORMAL : POK 

E 34,2 

VTAB 22: PRINT "CATALOG DELETE EDIT HOME LIST LOAD LOCK NEW 

,NUM FINE RENAME SEARCH UNLOCK CTRL - Z (RETURN) STAMP 

A";: POKE 35,21: HOME 

GOSUB 1280: ONERR GOTO 1450 

REM —>ANALIZZA LINEA<— 

IF LEN (LI$) = 0 THEN 140 

IF ASC ( LEFT$ (LI$,1)) > 47 AND ASC ( LEFT$ (LI$,1)) < 58 

THEN GOSUB 1120: GOTO 140 


NEXT : VTAB 1: 
GOSUB 1380:A$ = "( 


180 

IF 

LEFTS 

(LIS,4) 

= 

"LOAD" 

THEN 

330 



190 

IF 

LEFT$ 

(LIS,4) 

= 

"SAVE" 

THEN 

600 



200 

IF 

LEFT$ 

(LIS,4) 

= 

"HOME" 

THEN 

HOME 

: GOTO 140 


210 

IF 

LEFTS 

(LIS,4) 

= 

"LIST" 

THEN 

GOSUB 

790: GOTO 

140 

220 

IF 

LEFTS 

(LIS,3) 

= 

"NEW" 

THEN 

910 



230 

IF 

LEFTS 

(LIS,4) 

= 

"FINE" 

THEN 

TEXT 

: HOME : END 

240 

IF 

LEFTS 

(LIS,3) 

= 

"CAT" 

THEN 

GOSUB 

930: GOTO 

140 

250 

IF 

LEFTS 

(LIS,3) 

= 

"DEL" 

THEN 

GOSUB 

930: GOTO 

140 

260 

IF 

LEFTS 

(LIS,3) 

= 

"REN" 

THEN 

GOSUB 

930: GOTO 

140 

270 

IF 

LEFTS 

(LIS,4) 

= 

"UNLO" 

THEN 

GOSUB 

930: GOTO 

140 

280 

IF 

LEFTS 

(LIS,4) 

= 

"LOCK" 

THEN 

GOSUB 

930: GOTO 

140 

290 

IF 

LEFTS 

(LIS,4) 

= 

"SEAR" 

THEN 

GOSUB 

950: GOTO 

140 
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SEARCH e premete il tasto <RE- 
TURN>. Sarete invitati a introdurre 
la chiave di ricerca. A questo punto 
introducete NIME e premete <RE- 
TURN>. Quando viene trovata una 
corrispondenza la linea viene visua¬ 
lizzata alla sommità dello schermo e 
siete invitati a dire se volete modifi¬ 
care, proseguire la ricerca o interrom¬ 
pere l'operazione. 

Se scegliete la modifica della linea 
il cursore si sposta all’inizio della li¬ 
nea. Le frecce sinistra e destra vi per¬ 
mettono di spostarvi su differenti 
parti della linea da modificare. Pre¬ 
mendo <CTRL>D si elimina il ca¬ 
rattere sotto il cursore, mentre pre¬ 
mendo qualsiasi altro tasto si inseri¬ 
sce il carattere appropriato alla sini¬ 
stra del cursore. Si può premere in 
qualsiasi momento <RETURN> per 
completare il ciclo di editing, e non 
c’è bisogno di spostare il cursore a fi¬ 
ne linea. 

Se sapete che linea volete modifi¬ 
care potete fare a meno del comando 
SEARCH e usare al suo posto il co¬ 
mando EDIT. La sintassi giusta per 
EDIT è questa: 


EDIT 120 <RETURN> 


Quando usate il comando EDIT fa¬ 
te attenzione che rimanga uno spa¬ 
zio fra la parola EDIT e il numero 
della linea che volete modificare. Se 
viene introdotto un numero di linea 
che non esiste riceverete il messag¬ 
gio d’errore ”+++NUMERO LINEA 
INESISTENTE” (numero di linea 
non trovato). Se decidete di non mo¬ 
dificare una linea dopo che è stata vi¬ 
sualizzata vi basta premere <RE- 
TURN> e la linea rimarrà immu¬ 
tata. 

Introducendo <CTRL>Z <RE- 
TURN> si riversa il file di lavoro 
corrente sulla stampante. Se la vo¬ 
stra configurazione è diversa dall’E- 
pson MX-80 nello slot 1, può darsi 
che dobbiate modificare la linea 
1410 per l’adattamento alla vostra 
specifica stampante. 

Quando si tratta di salvare un file, 
potete scegliere se salvarlo con o 
senza numero (il default è senza nu¬ 
mero). Questa caratteristica può sem¬ 
brare poco importante a prima vista, 
ma diventando più pratici con l’uti¬ 
lizzo di questo programma capirete 
perché è stata inserita. Dato che la 
funzione principale del Text File Uti¬ 
lity è la scrittura di file sequenziali 
di dati o file eseguibili con EXEC, i 


numeri di linea che vengono intro¬ 
dotti durante la scrittura di un file 
vengono tolti mentre il file viene 
salvato nel modo di default, cioè sen¬ 
za numero. 

Tuttavia se volete scrivere un pro¬ 
gramma con l’aiuto di Text File Uti¬ 
lity dovrete forzarlo a salvare il file 
con i numeri di linea intatti. Questo 
si ottiene usando il suffisso 
" JSnjM” con il comando S AVE, co¬ 
me segue: 


SAVE CAPTURE,NUM,D2 <RE- 
TURN> 


La creazione 
di un file 

Creare un file è molto simile a 
scrivere un programma in Apple¬ 
soft. Se viene introdotto un numero 
di linea il codice che viene dopo è 
immagazzinato come parte del file di 
testo. Se non viene introdotto alcun 
numero di linea il comando viene e- 
seguito immediatamente. Il breve e- 
sempio che segue produce un file 
che, quando viene eseguito con E- 
XEC, lista sulla stampante il pro¬ 
gramma in memoria. Quando si fa 
girare il Text File Utility il carattere 
del prompt passa dalla parentesi qua¬ 
dra destra (]) al simbolo di omissio¬ 
ne ( A ). Introducete queste linee di pro¬ 
gramma, facendo attenzione che ci 
sia un spazio dopo ogni numero di 
linea: 


10 PRINT CHR$(4)”PR#1" 
20 PRINT CHR$(9)"80N" 
30 PRINT CHR$(4)”PR#0” 


Adesso battete LIST e comparirà 
quanto segue: 


00010 PRINT CHR$(4)”PR#1” 
00020 PRINT CHR$(9)”80N” 
00030 PRINT CHR$(4)"PR#0" 


Come potete vedere è stata omessa 
dal programma una linea molto im¬ 
portante: il comando LIST. Vi baste¬ 
rà introdurre la linea che segue e sare¬ 
te pronti a- salvare il file sul di¬ 
schetto: 


25 LIST 


Se avete qualche dubbio circa il 
punto in cui andrà a finire questa li¬ 
nea battete nuovamente LIST e 
comparirà fra le linee 00020 e 
00030 la linea 00025. 


300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 


510 

520 

530 

540 

550 

560 


( 4)"OPEN "TE$ 
(4)"READ "TES 


630 

640 


IF LEFT$ (LI$,4) - "EDIT" THEN GOSUB 1590: GOTO 140 
IF LEFT$ (LI$,1) = CHR$ (26) THEN GOSUB 1400: GOTO 140 
PRINT CHR$ (7)"+++ COMMAND ERROR": GOTO 140 
REM —>CARICA IL FILE<— 

FOR I - 1 TO LI:LI$(I) = "": NEXT :LI - 1 

IF LEN (LI$) = 4 THEN 320 

LI$ = RIGHTS (LI$, LEN (LI$) - 4) 

FOR I = 1 TO LEN (LI$): IF MIDS (LI$,I,1) = CHR$ (44) THEN 
390 

NEXT :TE$ = LI$: GOTO 400 

TES = LEFT$ (LI$/1 - 1): ONERR GOTO 1460 
PRINT CHR$ (4)"RENAME "TES","LIS 
POKE 216,0 
ONERR GOTO 500 
PRINT CHR$ 

PRINT CHR$ 

LI$ = "' 

GET A$: IF A$ = CHRS (13) THEN 480 

LI$ = LI$ + A$: GOTO 460 

IF LI$ = "" THEN 460 

LI$(LI) = LI$:LI = LI + 1: GOTO 450 

PRINT : PRINT CHR$ (4)"CLOSE": LI * LI - 1 : POKE 216,0: HOME 
: IF NOT LI THEN PRINT "+++ NESSUN FILE IN MEMORIA": GOTO 1 
40 

FOR I = 1 TO LI :AD$ = STRS (I * 10) 

IF LEN (AD$) < 5 THEN AD$ = "0" + AD$: GOTO 520 
LI$ (I) = AD$ + " " + LI$(I) 

PRINT LI$ (I) : NEXT 

IF ASC ( MID$ (LIS(LI),7,1) ) > 57 THEN 580 

PRINT : INPUT "CANCELLI IL PRIMO SET DI NUMERI ?";YN$:: PRINT 
: IF LEFT$ (YN$,1) = "N" THEN 580 

= 1 TO LI :LI$(I) = RIGHTS (LI$(I), LEN (LI$(I)) - 6): 
PRINT LI$ (I) : NEXT 
ONERR GOTO 1450 
GOTO 140 

REM —>SALVA IL FILE<— 

IF LEN (LI$) = 4 THEN 320 

IF MID$ (LI$, LEN (LI$) - 1,1) = "D" THEN T$ = RIGHTS (LIS, 

3):TF = 1 :LIS = LEFTS (LIS, LEN (LIS) - 3) 

IF RIGHTS (LIS,4) = ",NUM" THEN FL = 1:LI$ = LEFTS (LIS, LE 
N (LIS) - 4) 

LIS = RIGHTS (LIS, LEN (LIS) - 4) . . 

(Continua) 


570 FOR I 


580 

590 

600 

610 

620 
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Tavola 1. Le subroutine di Text file utility 


70-130 Inizializza e visualizza intestazione e comandi. 

140-320 Salta alla routine di input da tastiera e analizza la linea. Se c'è 
un numero nella prima posizione della stringa Ll$, salta 
a COSTRUISCE FILE. Se non c'è controlla se ci sia un comando 
valido di esecuzione immediata e salta alla subroutine appropriata. 

330-540 Carica in memoria un file di testo. 

550-590 Controlla se il file caricato sia stato salvato in formato numerato 
o non numerato. 

600-780 Se è numerato chiede se si vuole eliminare il primo set di numeri. 

790-890 Lista sullo schermo il file di lavoro. 


900-910 Cancella il file dalla memoria. 

920-930 Esegue un comando DOS. 

940-1110 Effettua la ricerca nella stringa. 
1120-1270 Costruisce il file di lavoro. Colloca 

la nuova linea in sequenza numerica. 
1280-1360 Legge il buffer di tastiera. 

1370-1390 Routine di centratura del testo. 
1400-1440 Lista il file di lavoro sulla stampante. 
1450-1580 Routine di gestione dell'errore. 
1590-1850 Routine di editing della linea. 


A differenza dell'Applesoft, Text 
File Utility richiede uno spazio do¬ 
po ogni numero di linea. Se lo spa¬ 
zio viene omesso riceverete un mes¬ 
saggio di errore d'introduzione 
"+++ENTRY ERROR'”'. Potete u- 
sare un punto interrogativo invece di 
un'istruzione PRINT se il file che 
state creando sarà usato solo in am¬ 
biente Applesoft. Un'altra differenza 
fra l'ambiente del Text File Utility e 
l'Applesoft è il modo in cui sono 
implementate le frecce sinistra e de¬ 
stra. Se notate un errore in una linea 
e spostate il cursore a ritroso fino al¬ 
l'errore i caratteri sotto il cursore ver¬ 
ranno cancellati e dovranno essere ri¬ 
battuti. E' da notare però che le fun¬ 
zioni di editing ESC non sono sup¬ 
portate da questo programma. 

Per salvare Ti file appena creato 
battete: 


S AVE LISTER <RETURN> 


Poi battete CATALOG e vedrete 
un file di testo di due settori denomi¬ 
nato LISTER. Per assicurarvi che 
funzioni a dovere battete FINE <RE- 
TURN>. Mettete la stampante in li¬ 
nea e battete EXEC LISTER <RE- 
TURN>. Dovreste ricevere un lista¬ 
to completo di questo programma. 

In caso negativo fate girare nuova¬ 
mente Text File Utility e fate 
LOAD LISTER. Controllate il vo¬ 
stro file confrontandolo con il lista¬ 
to visibile sopra. 

Il file che avete appena creato è uti¬ 
lizzato solamente come file EXEC. 
Invece l’esempio della figura 1 è 
un po’ più complesso. Quando se ne 
fa l'EXEC, aggiunge sette linee di i- 
struzioni a un programma esistente, 
fa girare il programma cominciando 
dalla linea 62000 e poi elimina le li¬ 
nee che ha appena aggiunto. Avete a 
disposizione due modi per introdurre 


650 IF LI < 1 THEN PRINT CHR$ (7)"+++ NESSUN FILE DI LAVORO": G 
OTO 140 

660 FOR I = 1 TO LEN (LI$): IF MID$ (LIS,1,1) = CHR$ (44) THEN 
680 

670 NEXT 

680 TE$ = LEFTS (LI$,I - 1) 

690 IF TF THEN TE$ = TE$ + T$ 

700 PRINT CHR$ (4)"OPEN "TE$: PRINT CHR$ (4)"CLOSE" 

710 PRINT CHR$ (4)"DELETE"TE$ 

720 PRINT CHR$ (4)"OPEN "TE$ 

730 IF TF THEN TF = 0:TE$ = LEFTS (TES, LEN (TE$) - 3) 

740 PRINT CHR$ (4)"WRITE "TE$ 

750 FOR I = 1 TO LI: IF NOT FL THEN PRINT RIGHTS (LI$(I), LEN 
(LI$(I)) - 6): GOTO 770 
760 PRINT LI$(I) 

770 NEXT : PRINT CHR$ (4)"CLOSE":FL = 0 
780 GOTO 140 

790 REM _>LISTA IL FILE<—■ 

800 IF LI < 1 THEN PRINT CHR$ (7)"+++ FILE DI LAVORO VUOTO": RE 
TURN 

810 IF LI$ = "LIST" THEN FOR I = 1 TO LI : PRINT LIS(I): NEXT : R 
E TURN 

820 TES = RIGHTS (LI$, LEN (LI$) - 5) 

830 FOR I = 1 TO LEN (TE$): IF MID$ (TES,1,1) = CHRS (44) THEN 

B = VAL ( LEFT$ (TES,I - 1)):EN = VAL ( RIGHTS (TES, LEN ( 

TE$) - I)): GOTO 850 
840 NEXT :EN = VAL (TE$):B = 0 
850 FOR I » 1 TO LI 

860 IF VAL ( LEFTS (LI$(I),5)) > = B AND VAL ( LEFTS (LI$(I),5 

)) < = EN THEN PRINT LI$(I) 

870 IF VAL ( LEFTS (LI$(I),5)) = EN THEN RETURN 

880 NEXT 
890 RETURN 

900 REM —>PULISCE IL FILE<— 

910 CLEAR : GOSUB 1390: GOTO 140 
920 REM —>COMANDO DOS<— 

930 PRINT CHRS (4)LI$ : RETURN 
940 REM —>RICERCA<— 

950 HOME : VTAB 12: PRINT "CHIAVE DI RICERCA ? :";:SE$ = "" 

960 GET A$: IF A$ = CHRS (8) AND LEN (SES) > 1 THEN SES = LEFT 

$ (SES# LEN (SES) - 1): PRINT " "ASAS;: GOTO 960 
970 IF A$ - CHRS (8) AND LEN (SES) = 1 THEN SES - "": PRINT " " 

ASAS;: GOTO 960 

980 IF A$ = CHRS (8) AND LEN (SES) - 0 THEN PRINT " ";A$;: GOT 

O 960 

990 IF A$ = CHRS (21) THEN 960 

1000 PRINT A$; : IF A$ = CHRS (13) THEN 1020 

1010 SES = SES + A$: GOTO 960 

1020 FOR I = 1 TO LI 

1030 FOR J = 1 TO LEN (LI$(I)): IF LEN (SES) > LEN (LIS(I)) TH 
EN 1060 

1040 IF MIDS (LIS(I), J, LEN (SES)) = SES THEN HOME : HTAB 2: PR 
INT LIS(I): GOTO 1080 

1050 NEXT J m 

1060 NEXT I m 

1070 VTAB 12: CALL - 958: RETURN 

1080 VTAB 12: INPUT "(M)ODIFICA (C)ONTINUA O (F)INE ?";OP$:OP$ = 
LEFTS (OP$,1): IF OPS < > "M" AND OPS < > "C" AND OPS < 

> "F" THEN VTAB 12: CALL - 958: GOTO 1080 
1090 IF OPS = "C" THEN VTAB 12: CALL - 958: PRINT "STO CERCANDO 
..." : GOTO 1050 

1100 IF OPS = "F" THEN VTAB 12: CALL - 958: RETURN 

1110 VTAB 12: CALL - 958: HTAB 1: VTAB 3: GOSUB 1660: RETURN 

1120 REM —COSTRUISCE IL FILE<— 

1130 CHS = " ": REM 10 SPAZI 

1140 IF LEN (LIS) < 5 THEN LIS - LIS + CHRS (32): GOTO 1140 
1150 LI = LI + 1 


78 









I 


questo esempio. Il primo metodo 
consiste nell'introdurlo esattamente 
come si presenta nell’esempio 1. Il 
metodo alternativo è l’introduzione 
di queste linee: 


62000 HOME 

62010 PRINT CHR$(4)”OPEN 
CAPTUREFP” 

62020 PRINT CHR$(4)”WRITE 
CAPTUREFP” 

62030 PRINT LIST ,61999 
62040 PRINT CHR$(4)”CLOSE" 
62050 TEXT:HOME 


Quando avete completato l’introdu¬ 
zione del codice salvate il file con: 


SAVE CAPTUREJSUM 
<RETURN> 


Come detto sopra, l'impiego del 
suffisso ”,NUM" dà istruzione di sal¬ 
vare il file con tutti i numeri di li¬ 
nea intatti. Ciò è desiderabile nel 
nostro caso perché quando si fa l’E- 
XEC di Capture dal Basic le linee 
62000-62050 vengono aggiunte al 
programma che risiede al presente in 
memoria. 


Ora che Capture è stato salvato 
sul dischetto battete: 


LOAD CAPTURE <RETURN> 


Il file che avete appena salvato vie¬ 
ne ricaricato e listato sullo schermo, 
con la comparsa di un ulteriore set 
di numeri davanti ai numeri di linea 
originari. Quando il listato è comple¬ 
to appare sullo schermo il prompt: 


CANCELLI IL PRIMO SET DI 
NUMERI? 


Battete N e premete <RETURN>. 
Adesso introducete queste due linee 
di codice: 


80 RUN 62000 
90 DEL 62000,62050 


Quando avete finito battete: 


SAVE CAPTURE <RETURN> 


Text File Utility salva il file, pri¬ 
vandolo del suo primo set di nume¬ 
ri, di modo che le prime sette linee 
vengono salvate con i prefissi nume¬ 
rici (numeri di linea) mentre le ulti¬ 
me due righe non li hanno. 

Avete ora creato un file che prima 
aggiunge linee a un programma in 
memoria e poi esegue il programma 
partendo dalle linee che ha appena 
aggiunto. 

Se state introducendo un program¬ 
ma in Applesoft e i suoi numeri di 
linea sono più bassi di 62000, un 
semplice comando EXEC CAPTU¬ 
RE trasforma il programma in un fi¬ 
le di testo denominato CAPTURE¬ 
FP. 

Adesso si può caricare il program¬ 
ma in Text File Utility o nella mag¬ 
gior parte dei word processor per far¬ 
ne un facile editing. Inoltre è adesso 
nel formato appropriato per la tra¬ 
smissione via modem. 

Altre applicazioni dei file EXEC 
comprendono la fusione dei program¬ 
mi, il caricamento delle tavole delle 
figure e l'installazione di programmi 
in linguaggio macchina. 

Si può usare questo programma 
per modificare quasi tutti i file di te¬ 
sto sequenziali, compresi molti data¬ 
base. 

Per trarre un file di programma in 
Applesoft da un file di testo dovete 
fare 1EXEC del file di testo, e poi u- 
sare il comando S AVE per salvare il 
programma sul dischetto. 


1160 


1170 

1180 


1190 

1200 


1210 

1220 


1230 

1240 

1250 

1260 

1270 


1280 

1290 

1300 


FOR I = 1 TO 5: IF ASC ( MID$ (LI$,I,1)) > 57 OR ASC ( MID 
$ (LI$,I,1)) = 32 THEN LI$ = "0" + LI$ 

NEXT 

IF MID$ (1*1$, 6,1) < > CHR$ (32) THEN PRINT CHR$ (7)" +++ 
ENTRY ERROR": LI = LI - 1: RETURN 
IF VAL ( LEFT$ (LI$(LI - 1),5)) < VAL ( LEFT$ (LI$,5)) THE 
N LI$(LI) = LI$: RETURN 

FOR I = 1 TO LI: IF VAL ( LEFT$ (LI$(I),5)) > = VAL ( LEF 

T$ (LI$,5)) THEN 1220 
NEXT 

IF RIGHT$ (LI$, 


LEN (LI$) - 5) = 


RIGHT$ (CH$, LEN (LI$) - 
5) AND VAL ( LEFT$ (LI$(I),5)) = VAL ( LEFT$ (LI$,5)) THEN 
FOR J = I TO LI - 2 :LI$(J) = LI$(J + 1): NEXT J:LI = LI - 
2: RETURN 

IF VAL ( LEFT$ (LI$(I),5)) = VAL ( LEFT$ (LI$,5)) THEN LI$ 
(I) = LI$ : LI = LI - 1: RETURN 

FOR I = 1 TO LI: IF VAL ( LEFT$ (LI$,5)) < VAL ( LEFT$ (LI 
$(I),5)) THEN 1260 
NEXT 
J = I 

FOR I = LI TO J STEP - 1:LI$(I) = LI$(I - 1): NEXT :LI$(J) 

= LI$: RETURN 

REM —>LEGGE LA TASTIERA<— 

PRINT ,,ys " ; : LI$ = 

GET A$: IF A$ = CHR$ (8) AND LEN (LI$) > 1 THEN LI$ = LEF 
T$ (LI$, LEN (LI$) - 1): PRINT " "A$A$;: GOTO 1300 


1310 IF A$ - 


1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 


LEN (LI$) = 1 THEN LI$ 


PRINT 


CHR$ (8) AND 
"A$A$;: GOTO 1300 
IF A$ = CHR$ (8) AND LEN (LI$) = 0 THEN PRINT " ";A$;: GO 
TO 1300 

IF A$ = CHR$ (21) THEN 1300 

PRINT A$;: IF A$ = CHR$ (13) THEN RETURN 

LI$ = LI$ + A$: GOTO 1300 

RETURN 

REM —>ROUTINE DI CENTRATURA<— 

HTAB 21 - LEN (A$) / 2: PRINT A$: 

DIM LI$(500): RETURN 
REM —>ROUTINE STAMPANTE<— 

PRINT CHR$ (4)"PR#1": PRINT 
FOR I = 1 TO LI: PRINT LI$(I): 

PRINT CHR$ (4)"PR#0" 

RETURN 

REM —>ROUTINE ERRORI<— 

ER = PEEK (222) : REM <— TIPO DI ERRORE 

EL = PEEK (218) + PEEK (219) * 256: REM <—N. LINEA ERR 

ORE 

CALL 768 

IF ER « 255 THEN TEXT : HOME : END 
REM ALTRI ERRORI 


RETURN 


CHR$ (9)"80N" 
NEXT 


IF ER 
0 

IF ER 
IF ER 
IF ER 
IF EL 
TO 140 
IF ER 
IF ER 


6 THEN PRINT CHR$ (7)"+++ FILE NOT FOUND": GOTO 14 

8 THEN PRINT CHR$ (7)"+++ I/O ERROR": GOTO 140 

9 THEN PRINT CHR$ (7)"+++ DISK FULL": GOTO 140 

10 THEN PRINT CHR$ (7)"+++ FILE LOCKED": GOTO 140 
870 THEN PRINT CHR$ (7)"+++ DOS COMMAND ERROR": GO 


53 THEN PRINT CHR$ (7)"+++ ENTRY ERROR": GOTO 140 
16 OR ER = 11 THEN PRINT CHR$ (7)"+++SYNTAX ERROR" 
: GOTO 140 

PRINT "TIPO DI ERRORE :"ER: PRINT "N.LINEA ERRORE :"EL: STOP 


1590 

1600 


1610 

1620 


REM —>RICERCA LA LINEA DA MODIFICARE<— 

IF LI < 1 THEN PRINT CHR$ (7)"+++ FILE DI LAVORO VUOTO": R 
ETURN 

IF MID$ (LI$,5,1) < > CHR$ (32) THEN PRINT CHR$ (7)"+++ 

SYNTAX ERROR": RETURN 

LI$ = RIGHT$ (LI$, LEN (LI$) - 5):SE = VAL (LI$) 

f Continua) 
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1630 FOR I = 1 TO LI: IF SE - VAL ( LEFT$ (LI3(I),5)) THEN FL = 

I 

1640 NEXT : IF FL > 0 THEN I = FL:FL = 0: HOME : HTAB 2: PRINT LI 
$(I): VTAB 3: GOTO 1660 

1650 PRINT CHR$ (7)"+++NUMERO LINEA INESISTENTE": RETURN 

1660 REM —>EDITA<— 

1670 PO = 1:LI$ = LEFT$ (LI3(I),6) :LI3 (I) = RIGHT3 (LI$(I) # LEN 
(LI$ (I) ) - 6) 

1680 PRINT " A "; : HTAB 8 

1690 GET A$: IF A$ = CHR$ (21) THEN PO = PO + 1:H = PEEK (36): 
IF H = 39 THEN H = 0: PRINT : POKE 36,H: GOTO 1690 

1700 IF A$ - CHR$ (21) THEN H = H + 1: POKE 36,H: GOTO 1690 

1710 IF A3 = CHR3 (8) AND PO > 0 THEN PO = PO - 1: PRINT A3;: GO 
TO 1690 

1720 IF A3 = CHR5 (8) AND PO = 0 THEN 1690 

1730 IF A3 = CHR3 (13) AND LI3(I) = "" THEN J = I: FOR I = J + 1 

TO LI :LI3(I - 1) = LI3(I): NEXT :LI5(LI) = "":LI = LI - 1 : 
HOME : RETURN 

1740 IF A3 = CHR5 (13) THEN LI$(I) = LI3 + LI3(I): HOME': PRINT 
LI3(I): RETURN 

1750 IF A3 = CHRS (4) AND LEN (LIS(I)) < = 1 THEN LI3(I) = 

GOTO 1690 

1760 IF A3 = CHRS (4) AND PO = 1 THEN LIS(I) = RIGHT3 (LI3(I), 
LEN (LIS(I)) - 1): HOME : HTAB 2: PRINT LI$;LIS(I): VTAB 3: 
HTAB 8 : PO = 1: GOTO 1690 

1770 IF A3 = CHRS (4) AND PO = LEN (LIS(I)) THEN LIS(I) = LEFT 

3 (LlSd), PO - 1): PRINT " " CHRS (8) CHRS (8);:PO = PO - 1: 
GOTO 1690 

1780 IF A3 = CHRS (4) AND PO > LEN (LIS(I)) THEN 1690 

1790 IF A3 = CHRS (4) THEN T1S = LEFT3 (LI3(I),PO - 1):T23 = R 

IGHTS (LIS(I), LEN (LI3(I)) - PO):LI$(I) = T1S + T23:H = PE 
EK (36) :V = PEEK (37): HOME : PRINT " A,, LI$;LI3 (I) ; : POKE 36 
, H: POKE 37,V: GOTO 1690 

1800 IF PO = 1 THEN LIS(I) = A3 + LI3(I):PO = PO + 1:H = PEEK (3 
6) : H = H + 1 : HOME : PRINT ,,A " ;LIS;LIS (I) ; : POKE 36, H: GOTO 
1690 

1810 IF PO > LEN (LI3(I)) THEN PRINT A3;:LI3(I) = LIS(I) + A3 :P 
O = PO + 1: GOTO 1690 

1820 TI3 = LEFT3 (LI3(I),PO - 1) :T2S = A3 + RIGHT3 (LI3(I), LEN 
(LI3(I)) - (PO - 1)):LI3(I) = T13 + T23: PO = PO + 1 

1830 H = PEEK (36): IF H = 39 THEN H - 0:V = PEEK (37) + 1: GOT 
O 1850 

1840 H = H + 1 : V = PEEK (37) 

1850 HOME : PRINT ,,A " ;LIS;LIS (I) : HTAB H + 1: VTAB V + 1: GOTO 16 


Checksum del listato 1 

NOME FILE: 

TEXT FILE UTILITY 

TIPO: A 


LUNGHEZZA: 

148B 

CHECKSUM : 

22 


Figura 1. Esempio di file EXEC. 

10 62000 HOME 

20 62010 PRINT CHR$(4) "OPEN CAPTUREFP" 

30 62020 PRINT CHR$(4) "WRITE CAPTUREFP" 

40 62030 LIST, 61999 

50 62040 PRINT CHR$ (4) "CLOSE" 

60 62050 TEXT : HOME 

70 RUN 62000 
80 DEL 62000,62050 


Introduzione e 
possibili modifiche 

Per digitare Text File Utility co¬ 
piate il listato 1 e salvatelo con: 


S AVE TEXT FILE UTILITY 


aiutandovi eventualmente con i con¬ 
sigli della rubrica Per chi comincia. 

Nella tavola 1 sono elencate le 
locazioni delle varie subroutine. 

Per i possessori di Apple Ile non 
sarebbe arduo compito convertire il 
programma per la visualizzazione a 
80 colonne. Accertatevi solo che lo 
schermo a 80 colonne sia chiuso pri¬ 
ma di riversare il file di lavoro sulla 
stampante. Non passerà molto tem¬ 
po prima che scopriate che Text file 
utility è diventata necessaria. 


Questo programma è disponibile 
su dischetto. L’elenco, i prezzi 
e le modalità d’ordine di questo 
e degli altri dischetti disponibili 
sono riportati nella rubrica 
Disk Service. 






































GRAFICA 

Creazione e gestione di una figura a blocco, giunti alla quarta puntata, non 
dovrebbero riservare più sorprese. Né lo dovrebbe l'animazione. Invece... 


Più veloce 
senza scambio 


Abbiamo ormai scoperto quanto fa¬ 
cili siano da creare le figure a bloc¬ 
co, e anche con quale rapidità possa¬ 
no spostarsi qua e là sullo schermo. 
A mano a mano che veniva presenta¬ 
ta una nuova routine, o gruppo di 
routine, aggiungendo queste routine 
al driver si è cercato di dare una di¬ 
mostrazione del loro modo d'impie¬ 
go creando semplici programmi di 
chiamata in Applesoft. Si contano 
letteralmente a centinaia i modi in 
cui si possono affrontare differenti e- 
sigenze di animazione usando queste 
routine pilota. 

Inoltre uno dei principali vantag¬ 
gi di Block Shape Maker ( Applican¬ 
do n. 27 pag. 67) è che aiuta a com¬ 
prendere lo schermo Hi-Res: provan¬ 
do differenti configurazioni di bit al- 
finterno di byte singoli e contigui, 
e mettendo a uno o a zero il bit colo¬ 
re, si possono ottenere sullo scher¬ 
mo molti effetti interessanti quanto 
inattesi. Provate quindi a usarlo co¬ 
me strumento didattico e sperimenta¬ 
le, oltre che come utility grafica. 

Le routine del driver possono esse¬ 
re immaginate come nuovi comandi 
Applesoft, che hanno come sintassi 
appropriata CALL (indirizzo della 
routine) e causano una o più azioni. 
I programmi di prova sono dimostra¬ 
zioni molto semplici di come si pos¬ 
sano combinare vari comandi per 
trattare differenti situazioni grafiche. 

L'animazione 
a spostamento 

Dovreste avere ormai in mente un 
quadro piuttosto chiaro del modo in 
cui funziona l’animazione grafica. 
Sostanzialmente è la stessa faccenda 
più o meno in tutti i metodi che ave¬ 
te impiegato: cancellare-muovere-di- 


segnare-cancellare-muovere-disegna- 
re... eccetera. In ogni metodo finora 
visto si è trattato di disegnare e ridi¬ 
segnare continuamente, più e più 
volte, le informazioni contenute nel¬ 
la tavola delle figure. 

Con ranimazione a spostamento 
dovrete mettere da parte queste vec¬ 
chie idee, e rivedere completamente 
ciò che sapete dell’animazione grafi¬ 
ca. L'animazione a spostamento è 
quanto di più vicino ci sia alla vera 
animazione, poiché non utilizza alcu¬ 
na routine di disegno o di cancella¬ 
zione. In sostanza è proprio quello 
che sembra: si colloca una figura sul¬ 
lo schermo, e la si muove letteral¬ 
mente a destra o a sinistra attraverso 
lo schermo. 

Si disegna (DRAW) la figura una 
volta sola, per metterla inizialmente 
sullo schermo. Un’altra splendida ca¬ 


ratteristica dell'animazione a sposta¬ 
mento è che si può, volendo, usare 
solo uno schermo Hi-Res, e i risulta¬ 
ti saranno scorrevoli e privi di sfar¬ 
fallio come quelli per i quali abbia¬ 
mo finora avuto bisogno dello scam¬ 
bio di pagine. Il problema è che la 
vera animazione a spostamento fun¬ 
ziona solo con figure che si sposta¬ 
no da destra a sinistra a destra, e 
quindi se il vostro programma ha fi¬ 
gure che si spostano in su e in giù, 
oltre a figure che si spostano lateral¬ 
mente, può darsi che abbiate ancora 
bisogno di lavorare con lo scambio 
di pagine. 

L'idea di base dell'animazione a 
spostamento è questa. Prima predi¬ 
sponete le informazioni VT, VB, 
HR e HL per la vostra figura, e poi 
la disegnate sullo schermo. Una vol¬ 
ta che la figura è sullo schermo (nel- 


ListatO 1. Routine SHFTR/SHFTL/MOVEL e MOVER 


DOS 3.3 


SOURCE FILE: LISTATO 1 

NEXT OBJECT FILE NAME IS 


9197: 

OOFC: 

OOFD : 

OOFE : 

OOFF : 

0026: 

0027: 

0006: 

00FA: 

00FB : 

93 91: 

9197 :A5 FF 
9199:C9 02 
919B:90 0E 
919D:C6 FF 
919F:C6 FE 
91A1:A5 FF 
91A3:C9 01 
91A5:90 04 
91A7:C6 FF 
91A9:C6 FE 
91AB: 60 
91AC:E6 FF 
91AE:E6 FE 
91B0:E6 FF 


VT 
VB 
HR 
HL 

HBASL 
HBASH 

8 YO 

9 BASL 

10 BASH 

11 YADDR 

12 MOVEL2 

13 

14 

15 

16 

17 MOVEL1 

18 

19 

20 
21 

22 EXIT 

23 MOVER2 

24 

25 MOVER1 


ORG 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
• EQU 
LDA 
CMP 
BCC 
DEC 
DEC 
LDA 
CMP 
BCC 
DEC 
DEC 
RTS 
INC 
INC 
INC 


LISTATO 1.OBJ0 
$9197 
$FC 
$FD 
$FE 
$FF 
$26 
$27 
$6 
$FA 
$FB 
$9391 
HL 
#2 

EXIT 
HL 
HR 
HL 
#1 

EXIT 
HL 
HR 

HL 
HR 
HL 


Apple Ile 


Apple Ile 


(SCREEN BASE 
ADDRESS) 


DECIMAL 252 
DECIMAL 253 
DECIMAL 254 
DECIMAL 255 
DECIMAL 38 
DECIMAL 39 
DECIMAL 6 
DECIMAL 250 (TABLE BASE 
DECIMAL 252 ADDRESS) 

DECIMAL 37777 (READ YTABLE) 
CALL 37271 TO ENTER 
IS ,HL<2? 

YES-CANCEL EXECUTION 

HL=HL-1 

HR=HR-1 

CALL 37281 TO ENTER 
IS HL<1? 

YES-CANCEL EXECUTION 

HL=HL-1 

HR=HR-1 

DONE-EXIT ROUTINE 
CALL 37292 TO ENTER 
HR=HR+1:HL=HL+1 
CALL 37296 TO ENTER 


(Continua) 
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la memoria Hi-Res) cambiate il valo¬ 
re di HR (per una figura che va ver¬ 
so destra) o di HL (per una figura 
che va verso sinistra), in modo che 
la dimensione HR-HL sia di un byte 
più larga della reale larghezza della fi¬ 
gura. Questo fa sì che immediata¬ 
mente davanti alla direzione di viag¬ 
gio della figura venga posta un'inte¬ 
ra colonna verticale di byte vuoti. 

A mano a mano che muovete la 
vostra figura attraverso lo schermo 
sposterete in avanti di una posizio¬ 
ne, nella direzione di viaggio, ogni 
bit della figura. Il bit più avanzato 
di ciascun byte sarà spostato nella 
posizione più arretrata del byte che 
lo precede immediatamente. 

Tenete presente, però, che questo è 
più esatto visivamente che tecnica- 
mente. A causa dell'effetto di inver¬ 
sione dei byte Hi-Res, che esamine¬ 
remo più avanti in qualche esempio, 
gli spostamenti di bit non fanno in 
realtà proprio quello che sembrano 
fare sullo schermo. Ci sono due rou¬ 
tine di spostamento, SHFTL che 
sposta la figura a sinistra e SHFTR 
che la sposta a destra. Un p assaggio 
attraverso SHFTL o SHFTR muove- 
rà l'intera figura di un bit (punto) a 
destra o a sinistra. Se volete muover¬ 
vi di 20 punti in una specifica dire¬ 
zione dovrete passare 20 volte attra¬ 
verso SHFTR o SHFTL. 

I bit del byte più avanzato della fi¬ 
gura, intanto, saranno spostati nella 
colonna vuota dei byte che sono sta¬ 
ti aggiunti immediatamente davanti 
ai byte della figura. Dopo sette spo¬ 
stamenti la figura sarà completamen¬ 
te spostata di un byte, e a questo 
punto la colonna di byte vuoti si sa¬ 
rà portata dietro la figura. In questo 
momento i valori di HR e HL sono 
entrambi incrementati o decrementa- 
ti (a seconda della direzione di viag¬ 
gio) di modo che la colonna di byte 
vuoti è nuovamente davanti alla figu¬ 
ra, in preparazione dei sette sposta¬ 
menti successivi. 

Invece del ritmo cancellare-muove- 
re-disegnare al quale siete abituati, il 
ritmo dell’animazione a spostamento 
sarà spostare sette volte-muovere 
HR/HL-spostare sette volte-muovere 
HR/HL... eccetera. 

Spostamenti laterali 
e routine 

I byte della grafica Hi-Res sono vi¬ 
sualizzati sullo schermo in ordine in¬ 
verso. Ciò significa che, per muove- 


91B2:E6 

FE 


26 

INC 

HR 

91B4:60 



27 

RTS 


91B5:A5 

FD 


28 SHFTL 

LDA 

VB 

91B7:85 

06 


29 

STA 

YO 

91B9:20 

91 

93 

30 L3 

JSR 

YADDR 

91BC : 18 



31 

CLC 


91BD: A4 

FE 


32 

LDY 

HR 

91BF : A9 

00 


33 ST 

LDA 

#0 

91C1:8 5 

08 


34 

STA 

$8 

91C3:85 

09 


35 

STA 

$9 

91C5:85 

07 


36 

STA 

$7 

91C7:90 

02 


37 

BCC 

CTI 

91C9:E6 

08 


38 

INC 

$8 

91CB:B1 

26 


39 CTI 

LDA 

(HBASL) , Y 

91CD:C9 

80 


40 

CMP 

#$80 

91CF: 90 

02 


41 

BCC 

CT2 

91D1:E6 

09 


42 

INC 

$9 

91D3:A5 

08 


43 CT2 

LDA 

$8 

91D5:F0 

07 


44 

BEQ 

CT3 

91D7:B1 

26 


45 

LDA 

(HBASL),Y 

91D9:0 9 

80 


46 

ORA 

#$80 

91DB:4C 

E2 

91 

47 

JMP 

CT4 

91DE:B1 

26 


48 CT3 

LDA 

(HBASL)/Y 

91E0:29 

7F 


49 

AND 

#$7F 

91E2:6A 



50 CT4 

ROR 

A 

91E3:91 

26 


51 

STA 

(HBASL),Y 

91E5: 90 

02 


52 

BCC 

CT5 

91E7:E6 

07 


53 

INC 

$7 

91E9:A5 

09 


54 CT5 

LDA 

$9 

91EB:C9 

01 


55 

CMP 

#$1 

91ED: 90 

06 


56 

BCC 

CT6 

91EF:B1 

26 


57 

LDA 

(HBASL),Y 

91F1:09 

80 


58 

ORA 

#$80 

91F3:91 

26 


59 

STA 

(HBASL),Y 

91F5:C4 

FF 


60 CT6 

CPY 

HL 

91F7:F0 

08 


61 

BEQ 

NXTLN3 

91F9:88 



62 

DEY 


91FA:A5 

07 


63 

LDA 

$7 

91FC:C9 

01 


64 

CMP 

#$1 

91FE:4C 

BF 

91 

65 

JMP 

ST 

9201:C6 

06 


66 NXTLN3 

DEC 

YO 

9203:A5 

06 


67 

LDA 

YO 

9205:C9 

FF 


68 

CMP 

#$FF 

9207 :F0 

04 


69 

BEQ 

RTN3 

9209 :C5 

FC 


70 

CMP 

VT 

920B:B0 

AC 


71 

BCS 

L3 

920D: 60 



72 RTN3 

RTS 


920E:A5 

FD 


73 SHFTR 

LDA 

VB 

9210:85 

06 


74 

STA 

YO 

9212:20 

91 

93 

75 L4 

JSR 

YADDR 

9215:18 



76 

CLC 


9216 :A4 

FF 


77 

LDY 

HL 

9218:A9 

00 


78 STI 

LDA 

#0 

921A:85 

08 


79 

STA 

$8 

921C: 85 

09 


80 

STA 

$9 

921E:B1 

26 


81 SHF 

LDA 

(HBASL),Y 

9220: 2A 



82 

ROL 

A 

9221:91 

26 


83 

STA 

(HBASL),Y 

9223 :B0 

02 


84 

BCS 

SI 

9225:90 

02 


85 

BCC 

CT1A 

9227 :E6 

08 


86 SI 

INC 

$8 

9229-.C9 

80 


87 CT1A 

CMP 

#$80 

922B:B0 

02 


88 

BCS 

SET64 

922D: 90 

02 


89 

BCC 

CT2A 

922F:E6 

09 


90 SET64 

INC 

$9 

9231 :A5 

08 


91 CT2A 

LDA 

$8 

9233:D0 

09 


92 

BNE 

S2 

9235 :B1 

26 


93 

LDA 

(HBASL),Y 

9237:29 

7F 


94 

AND 

#$7F 

9239:91 

26 


95 

STA 

(HBASL),Y 

923B:4C 

44 

92 

96 

JMP 

S3 

923E:B1 

26 


97 S2 

LDA 

(HBASL),Y 

9240:09 

80 


98 

ORA 

#$80 

9242:91 

26 


99 

STA 

(HBASL),Y 

9244:C4 

FE 


100 S3 

CPY 

HR 

9246 :F0 

09 


101 

BEQ 

NXTLN4 

9248:C8 



102 

INY 


9249:18 



103 

CLC 


924A-.A5 

09 


104 

LDA 

$9 

924C:C9 

01 


105 

CMP 

#$1 

924E:4C 

18 

92 

106 

JMP 

STI 

9251:C6 

06 


107 NXTLN4 

DEC 

YO 

9253 :A5 

06 


108 

LDA 

YO 

9255 :C9 

FF 


109 

CMP 

#$FF 

9257 :F0 

04 


110 

BEQ 

RTN4 

92 59 :C5 

FC 


111 

CMP 

VT 

925B:B0 

B5 


112 

BCS 

L4 

925D: 60 



113 RTN4 

RTS 



*** SUCCESSFUL ASSEMBLY: NO ERRORS 


I 


** HR=HR+1:HL=HL+1 
** DONE-EXIT ROUTINE 
** CALL 37301 TO ENTER 
** PUT IN $6 FOR USE BY YADDR 
** RETURNS-LO=HBASL/HI=HBASH 

** SET Y-REGISTER TO RIGHTMOST BYT; 

** ZERO-BIT 0 FLAG LAST CYCLE 
** ZERO-BIT 7 FLAG 
** ZERO-BIT 0 FLAG THIS CYCLE 
** IF BIT 0=0 JUMP 
** SET-BIT 0 FLAG LAST CYCLE 
** GET SHAPE BYTE FROM SCREEN 
** IS COLOR BIT SET ? 

** NO-JUMP 

** SET BIT 7 FLAG 

** GET-BIT 0 LAST CYCLE FLAG 

** IF IT 1 S CLEAR-JUMP 

** GET SHAPE BYTE FROM SCREEN 

** SET BIT 7 

** BIT SET-CONTINUE 

** GET SHAPE BYTE FROM SCREEN 

** PUT 0 IN BIT 7 

** ROTATE BYTE RIGHT 

** LOAD BYTE ON SCREEN 

** IF BIT ZERO=0 JUMP 

** BUMP 0 BIT FLAG THIS CYCLE 

** GET BIT 7 FLAG 

** IS IT SET ? 

** NO-JUMP 

** GET SHAPE BYTE FROM SCREEN 
** PUT A 1 IN BIT 7 
** LOAD BYTE ON SCREEN 
** HAVE WE REACHED HL ? 

** YES-GOTO NEXT LINE 
** POINT TO NEXT BYTE <— 

** GET-0 BIT FLAG THIS CYCLE 
** IF 1 SET CARRY WITH CMP 

** MOVE UP TO NEXT LINE 

** GET NEW Y-COORDINATE 

** HAS Y-COORDINATE REACHED 0 ? 1 

** YES-WE'RE FINISHED 

** HAVE WE REACHED VT YET ? 

** NO-START THE NEXT LINE 
** DONE-EXIT ROUTINE 
** CALL 37390 TO ENTER 
** STORE IN $6 FOR USE BY YADDR . 
** RETURNS-LO=HBASL/HI=HBASH 

** SET Y-REG TO LEFTMOST BYTE 

** PUT A 0 IN ACCUMULATOR 

** CLEAR BIT 7 FLAG 

** CLEAR BIT 6 FLAG 

** GET SHAPE BYTE FROM SCREEN 

** ROTATE LEFT 

** LOAD BYTE BACK ON SCREEN 

** IF BIT 7=1 BEFORE SHIFT-JUMP I 

** IF BIT 7=0 BEFORE SHIFT-JUMP f 

** SET BIT 7 FLAG 

** IS BIT 7 NOW A 1 ? 

** YES-GO SET BIT 6 

** NO-CONTINUE 

** SET BIT 6 FLAG 

** GET BIT 7 FLAG 

** IF IT 1 S SET-JUMP 

** GET SHAPE BYTE FROM SCREEN 

** PUT A 0 IN BIT 7 

** LOAD BYTE TO SCREEN 

** BIT 7 OKAY-JUMP 

** GET SHAPE BYTE FROM SCREEN 

** PUT A 1 IN BIT 7 

** LOAD BYTE TO SCREEN 

** HAVE WE REACHED HR YET ? 

** YES-GOTO NEXT LINE 
** POIN*TO NEXT BYTE-> 

** GET BIT 6 FLAG 

** USE CMP TO SET CARRY 

** GO SHIFT MORE BYTES 

** MOVE UP TO NEXT LINE 

** GET NEW Y-COORDINATE 

** HAS Y-COORDINATE REACHED 0 ? 

** YES-WE*RE FINISHED 
** HAVE WE REACHED VT YET ? 

** NO-START THE NEXT LINE 
** DONE-EXIT ROUTINE 


I 




BIT 

BYTE ORIGINALE 76543210 (mostrato nell'ordine normale) 

Stato del bit 0 1 0 0 1 1 0 0 (il movimento apparente sarà a sinistra) 

ROR 

|-► 7 0 1 0 0 1 1 0 - 

CARRY 

| - 0 - 

Figura 1. 


Spostamento verso sinistra con ROR Sullo schermo 



8194 

8195 

8196 

8194 

8195 

8196 

START 

cooooooo 

C1100111 

C0111001 

0000000 

1110011 

1001110 

Loop 1 

C1000000 

C1110011 

C0011100 

0000001 

1100111 

0011100 

Loop 2 

CI100000 

COI11001 

C0001110 

0000011 

1001110 

0111000 

Loop 3 

CI110000 

C0011100 

C0000111 

0000111 

0011100 

1110000 

Loop 4 

C0111000 

C1001110 

C0000011 

0001110 

0111001 

1100000 

Loop 5 

C0011100 

C1100111 

C0000001 

0011100 

1110011 

1000000 

Loop 6 

C1001110 

C1110011 

cooooooo 

0111001 

1100111 

0000000 

Loop 7 

C1100111 

COI11001 

cooooooo 

1110011 

1001110 

0000000 

BUS 

76543210 

76543210 

76543210 

0123456 

0123456 

0123456 

Loop 1 

CI000000 

Lì 

C1110011 

J—F 

C0011100 

-4— J 

0000001 1100111 0011100 
4_1 4_1 


spostamento reale 

spostamento apparente 


Figura 2. 


re la figura a destra, si spostano i bit 
a sinistra, e per muoverla a sinistra 
li si sposta a destra. I nomi delle rou¬ 
tine indicano la direzione del moto 
apparente, non di quello dei bit. 

La prima routine di animazione a 
spostamento (linee da 73 a 113 d el 
listato 1) è denominata SHFTR e 
fa muovere la figura da sinistra a de¬ 
stra attraverso lo schermo: SHFTR 
funziona sostanzialmente come le 
routine che abbiamo già esaminato, 
con la differenza che, come RE- 
VDIR, comincia a trattare la figura a 
VB/HL anziché a VB/HR come è 
normale. Quando userete SHFTR vi 
occorrerà sempre almeno una colon¬ 
na di byte vuoti immediatamente da¬ 
vanti ai byte della figura (cioè alla 
loro destra), il che significa che HR 
dev’essere sempre maggiorato alme¬ 
no di uno. SHFTR comincia a 
$920E e prende posto immediata¬ 
mente sotto le nostre routine di mo¬ 
vimento verticale. 

La seconda routine di spostamento 
(linee 2 8-72 del listato 1) è chia¬ 
mata SHFTL e fa muovere la figura 
da destra a sinistra attraverso lo 
schermo. Anche SHFTL è molto si¬ 
mile alle altre routine e comincia a 
trattare la figura a VB/HR. Quando 
userete SHFTL vi occorrerà sempre 
almeno una colonna di byte vuoti 


immediatamente a sinistra dei byte 
della figura, il che vuol dire che HL 
deve essere sempre diminuito alme¬ 
no di uno. SHFTL comincia a 
$91B5 e trova posto immediatamen¬ 
te prima della routine SHFTR. 

Le successive aggiunte al vostro 
driver sono le routine di movimen¬ 
to, che trovano posto immediata¬ 
mente sotto SHFTL e danno al dri¬ 
ver la nuova posizione di partenza di 
$9197 (linee 12-27 del listato 1). 
Scopo delle routine di movimento è 
quello di procurare un metodo rapido 
e facile per cambiare i valori di HR 
e HL. Chiamando uno dei vari punti 
d'ingresso possibili si può usare la 
routine per INCrementare o DECre- 
mentare HR e HL di uno o due, o 
INCrementare o DECrementare HR 
soltanto. Inoltre la routine fa un con¬ 
trollo per assicurarsi che non permet¬ 
tiate accidentalmente a SEFTL di 
superare l’orlo sinistro dello scher¬ 
mo e bloccare il programma, con un 
valore negativo di HL. 

Per aggiungere al driver queste 
nuove routine si usa il Tool Kit As¬ 
sembler o semplicemete si caricano 
con BLOAD le vecchiè routine (Ap¬ 
plicando n. 27 pag. 67) aggiungendo 
i byte esadecimali delle nuove. A co¬ 
loro che hanno poca pratica con V As¬ 
sembler sarà utile il listato 11, 


che è il dump esadecimale dell’intero 
drive e comprende sia il drive pubbi- 
cato sul numero 27 di Applicando 
sia le routine disassemblate dei lista¬ 
ti 1 e 6. Si salva con BSAVE BLO¬ 
CK ROUTENES, A$911A, L$4E6. 

Come funzionano le 
routine di spostamento 

Ogni routine comincia dalla riga 
più bassa di byte di schermo occupa¬ 
ta dalla figura, al byte più arretrato, 
poi percorre ogni riga orizzontale di 
byte dal retro (da cui proveniamo) al 
davanti (dove andiamo), fino a che 
sono state elaborate tutte le righe. 

I comandi chiave di ciascuna routi¬ 
ne sono i comandi ROL, di rotazio¬ 
ne a sinistra (ROtate Left), e ROR, 
di rotazione a destra (ROtate Right). 
Vediamo dunque cosa accade, usando 
come esempio ROR (figura 1). 

Quando si fa il ROR del byte ruo¬ 
tandolo a destra, il contenuto del car- 
ry (un bit speciale nel registro di sta¬ 
to del 6502) viene spinto nel bit 7, 
che spinge tutti gli altri bit a destra 
di una posizione. Poi il bit 0 se ne 
va e finisce nel carry. Con varie pro¬ 
ve, impostando differenti flag, ognu¬ 
na delle routine di spostamento è in 
grado di individuare e influenzare il 
contenuto del carry e di tenere impo¬ 
stato a dovere il bit colore. 

Mediante questi flag le routine so¬ 
no in grado di spingere tutti i bit in 
là di una posizione, e sanno se ag¬ 
giungere uno 0 o un 1 al byte suc¬ 
cessivo. Il valore che viene spinto 
fuori del bit 0 e dentro il carry è in 
realtà inteso per il bit 6 del byte adia¬ 
cente sulla sinistra. 

Per avere un esempio del modo in 
cui funziona una routine di sposta¬ 
mento guardate la figura 2, che 
mostra SHFTL impegnata a muove¬ 
re a sinistra di sette punti (un byte) 
una figura larga due byte. La figura 
campione sarà alta soltanto un byte 
(veramente grande), e avrà sullo 
schermo questo aspetto: 1110011- 
1001110. Nel nostro esempio non 
ci preoccuperemo del bit colore (sup¬ 
porremo che sia uno zero), e mostre¬ 
remo solo i cambiamenti dei bit che 
appaiono sullo schermo. 

Quando l’abbiamo disegnata in ori¬ 
gine, la figura era larga due byte e ri¬ 
siedeva nei byte 8195 e 8196 a 
HR=4, HL=3. Per poter usare la rou¬ 
tine SHFTL si è poi cambiato HL 
in HL=2, aggiungendo il byte vuoto 
davanti alla figura a 8194. Potete 
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Listato 2. Spostamento 


vedere che dopo sette spostamenti la 
figura si è spostata a sinistra, di mo¬ 
do che il byte vuoto che in partenza 
era davanti alla figura adesso è dietro 
di essa. Dovreste anche notare che 
mentre i veri valori di HR e HL era¬ 
no rispettivamente 4 e 3 prima dei 
sette spostamenti, essi sono diventa¬ 
ti, dopo i sette spostamenti, rispetti¬ 
vamente 3 per HR e 2 per HL. 

Vedrete che i bit danno l’impressio- 
ne di muoversi in avanti, andando 
nel nuovo byte, nei byte del display; 


DOS 3.3 
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ma ciò che accade in realtà nei byte 
ruotati a destra con ROR è diverso. 

I bit che con la rotazione vengono 
fatti uscire da 8194 (HL) non vanno 
da nessuna parte. Il punto interrogati¬ 
vo che vedete è in realtà un enorme 
buco nero nello spazio, e i bit che 
vengono spostati fuori di HL finiran¬ 
no per cadervi. Ma non importa, per¬ 
ché quei bit 0 non ci servono. In o- 
gni modo farete bene a badare a non 
spostarvi attraverso HL più di sette 
volte, altrimenti comincerete a man¬ 


dare in quello stesso buco nero an¬ 
che la vostra figura. 

Dopo aver fatto sette spostamenti 
dovete cambiare HR e HL. Se vi sta¬ 
te muovendo a sinistra dovete decre- 
mentare HR e HL ogni sette sposta¬ 
menti, e se vi state muovendo a de¬ 
stra dovete incrementare HR e HL o- 
gni sette spostamenti. 

Ma proviamo a fare un poco di 
spostamento. Per eseguire le prove 
che affronteremo adesso dovrete anzi¬ 
tutto aggiungere al driver BLOCK 
SHAPE ROUTINES $925E (Appli¬ 
cando n. 27, p ag. 67) le routine 
SHFTR, SHFTL e MOVE (listato 
1). Dopo averle aggiunte, salvate il 
tutto sul dischetto con il nome BLO¬ 
CK ROUTINES ,A$9197 ,L$469. 

Ora caricatele in memoria con 
BLOAD con la figura esemplificati¬ 
va di astronave #144 (listato 9), e 
introducete le linee del programma 
in Applesoft del listato 2. 

La prima cosa che dovreste notare 
facendo girare questo programma è 
con quanta scorrevolezza si muove 
la figura, e così pure la totale assen¬ 
za di qualsiasi sfarfallio, per quanto 
stiamo facendo tutto il lavoro su u- 
na sola pagina. Normalmente per far 
correre tanto bene una figura occorre¬ 
rebbe lo scambio di pagine. 

Vediamo adesso come funziona il 
programma. La linea 10 si occupa di 
predisporre la grafica, YTABLE e il 
numero di figura. La linea 20 impo¬ 
sta i valori iniziali di VT, VB, HR e 
HL, poi disegna la figura iniziale. 
La linea 30 incrementa HR per ag¬ 
giungere a destra una colonna di 
byte vuoti. La linea 50 imposta il 
numero dei byte attraverso cui ci 
sposteremo. La linea 60 sposta per 
sette volte attraverso i byte correnti 
(muovendo verso destra). La linea 
70 incrementa HR e HL in prepara¬ 
zione dei sette spostamenti succes¬ 
sivi. La linea 80 fa passare a sinistra 
la colonna di byte vuoti per il viag¬ 
gio di ritorno. La linea 110 sposta 
per sette volte Atraverso i byte cor¬ 
renti (muovendo verso sinistra). La 
linea 120 decrementa HR e HL in 
preparazione dei sette spostamenti 
successivi. 

Come potete vedere il programma 
è semplice e lineare. Tutto quel che 
fa è impiegare dei loop per poter 
chiamare sette volte una routine di 
spostamento, e poi cambiare HR e 
HL prima di chiamare altre sette vol¬ 
te la stessa routine di spostamento. 

Ricordate che questo è solo un test 



Sommario dei 

nuovi punti di ingresso al Driver 

nome 

indirizzo 

indirizzo 

funzione 

SHFTR 

373§0 

$920E 

sposta l’intera figura a blocco di 1 punto a destra 

SHFTL 

37301 

$91B5 

sposta l'intera figura a blocco di 1 punto a sinistra 

MOVEL2 

37271 

$9197 

sottrae 2 da HR e HL 


37279 

$919F 

sottrae 2 da HR/sottrae 1 da HL 

MOVEL1 

37281 

$91A1 

sottrae 1 da HR e HL 


37289 

$91A9 

sottrae 1 da HR 

MOVER2 

37292 

$91 AC 

aggiunge 2 a HR e HL 


37294 

$91AE 

aggiunge 2 a HR/aggiunge 1 a HL 

MOVER1 

37296 

$91B0 

aggiunge 1 a HR e HL 


37298 

$91B2 

aggiunge 1 a HR 

SETCTR 

37146 

$911A 

imposta su 14 il contatore dei loop di spostamento 

DRAW1 

37154 

$9122 

imposta su display pagina 1/disegno pagina 2 


37159 

$9127 

imposta su disegno pagina 2 

DRAW2 

37164 

$912C 

imposta su disegno pagina 2/disegno pagina 1 


37169 

$9131 

imposta su disegno pagina 1 

SHFTR4 

37174 

$9136 

esegue completo spostamento e scambio pagine a destra 
pagina 2 - sposta di 4 punti/aziona il contatore due volte 
pagina 1 - sposta di 4 punti/aziona il contatore due volte 


37180 

$913C 

sposta soltanto pagina 1 

sposta di 4 punti/aziona il contatore due volte 


37192 

$9148 

sposta di 2 punti/aziona il contatore una volta 
(dovete impostare per pagina 1 prima di introdurre qui, 
altrimenti sposterete pagina 2 di 2 punti/azionerete 
il contatore una volta, poi sposterete pagina 1 di 4 punti/ 
azionerete il contatore due volte) 

SHTFL4 

37208 

$9158 

come SHFTR4 ma muove a sinistra 


37214 

$915E 

come 37180 ma muove a sinistra 


37226 

$916A 

come 37192 ma muove a sinistra 

MVCTRR 

37242 

$917A 

aziona contatore/fa test per 14 doppi spostamenti - se 14 
aggiunge 2 a HR e HL/reimposta il contatore su 14 

MVCTRL 

37258 

$918A 

aziona il contatore/fa test per 14 doppi spostamenti - se 14 
sottrae 2 da HR e HL/reimposta il contatore su 14 
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5 REM RICHIEDE BLOCK ROUTINES E L'ASTRONAVE #144 
10 HGR : CALL 37799: POKE 251,144 

20 POKE 252,10: POKE 253,21: POKE 254,2: POKE 255,0: CALL 37679 
30 CALL 37298: REM INCREMENTA HR-AGGIUNGE UNA COLONNA DI BYTE VU 
OTI SULLA DESTRA 
50 FOR X = 0 TO 35 

60 FOR Y = 1 TO 7: CALL 37390: NEXT : REM SPOSTA DI 1 BYTE A DES 
TRA 

70 CALL 37296: REM INCREMENTA HR/HL 

80 NEXT : CALL 37281: REM SPOSTA LA COLONNA VUOTA IN AVANTI/A SI 
NISTRA 

100 FOR X = 0 TO 35 

110 FOR Y = 1 TO 7: CALL 37301: NEXT : REM SPOSTA DI 1 BYTE/A SI 

NISTRA 

120 CALL 37281: REM DECREMENTA HR/HL 
130 NEXT X 

140 GOTO 50 
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sul funzionamento delle routine. In 
un autentico ambiente di programma 
è sconsigliabile ricorrere per fanima- 
zione a ordinari loop FOR...NEXT: 
sono facili e comodi, ma ci sono 
modi più rapidi per costruire i loop. 

Inversione e 
scambio di pagine 

Adesso proviamo a fare un po' di 
spostamento con inversione dei lati 
della figura. Per eseguire questo test 
dovrete prima ricaricare la figura e- 
semplificativa #146 (l’autofurgone 
Arkansas Good-Ole-Boy - listato 
10). Dato che abbiamo aggiunto al¬ 
tre routine al nostro driver non potre¬ 
te più eseguirla come FURGONE 
#146; perciò trasferiamola adesso a 
$9000 e rinominiamola FURGONE 
#144. Quando l'avrete in memoria 
andate in Monitor (CALL -151) e 
poi usate il comando MOVE del Mo¬ 
nitor 9000<9200.9259M per il tra¬ 
sferimento. Una volta che è trasferi¬ 
ta risalvatela sul dischetto con BS A- 
VE FURGONE #144,A$9000,L90. 

Dovrete anche ricaricare il driver 
(lo avete danneggiato caricando la 
vecchia figura del camion) e poi in¬ 
trodurre le linee del programma in 
Applesoft del listato 3. 

Quando farete girare questo pro¬ 
gramma vedrete l’autocarro che scor¬ 
re attraverso lo schermo e inverte di¬ 
rezione prima di fare il viaggio di ri¬ 
torno. Tornato alla posizione di par¬ 
tenza farà di nuovo dietrofront, di 
modo che sarà sempre rivolto nella 
direzione giusta. Dato che la routine 
REVDIR fa il suo lavoro sullo 
schermo, la figura non sfarfallerà 
mai, nemmeno durante l’azione d’in¬ 
versione della posizione. Esaminia¬ 
mo anzitutto il programma com’è 
scritto, poi vedremo come migliorar¬ 
lo eliminando qualche passo. 

Le linee 10-70 fanno tutte le stes¬ 
se cose del listato 1 , con la diffe¬ 
renza che variano i valori di VT, 
VB, HR e HL. La linea 80 prima ri¬ 
muove la colonna supplementare di 
byte che c’è davanti alla figura, ri¬ 
portando questa alle sue vere dimen¬ 
sioni, poi in verte i lati della figura. 
Quando questa è invertita la colonna 
supplementare di byte viene rimessa 
a posto e trasferita sulla sinistra. La 
linea 130 rimuove nuovamente la co¬ 
lonna supplementare di byte, inverte 
la figura e rimette a posto la colon¬ 
na supplementare di byte. 

Il programma ha funzionato molto 


Listato 3. Spostamento e inversione 


5 REM RICHIEDE BLOCK ROUTINES E IL FURGONE #144 
10 HGR : CALL 37799: POKE 251,144 
20 POKE 252,130: POKE 253,144: POKE 254,5: POKE 255,0: CALL 37679 
30 CALL 37298: REM AGGIUNGE UNA COLONNA DI BYTE VUOTI/A DESTRA 
50 FOR X = 0 TO 33 

60 FOR Y = 1 TO 7: CALL 37390: NEXT : REM SPOSTA DI 1 BYTE 
70 CALL 37296: REM INCREMENTA HR/HL 

80 NEXT : CALL 37289: CALL 37606: CALL 37298: CALL 37281: REM RI 
MUOVE IL BYTE INIZIALE/INVERTE/RIPRISTINA IL BYTE INIZIALE/INV 
ERTE IL BYTE INIZIALE 
100 FOR X = 0 TO 33 

110 FOR Y = 1 TO 7: CALL 37301: NEXT : REM SPOSTA DI 1 BYTE A SI 
NISTRA 

120 CALL 37281: REM DECREMENTA HR/HL 

130 NEXT : CALL 37289: CALL 37606: CALL 37298 

140 GOTO 50 


DOS 3.3 


Apple Ile 
Apple Ile 


bene. Tuttavia eliminando i passi ag¬ 
giuntivi richiesti prima di ogni in¬ 
versione per ripristinare le vere di¬ 
mensioni HR-HL si accelererebbe l’e¬ 
secuzione risparmiando memoria. 

Finora abbiamo disegnato la figu¬ 
ra nella sua vera posizione HR/HL, 
aggiungendole poi davanti una colon¬ 
na di byte vuoti. Vediamo adesso 
che cosa accadrebbe se facessimo di¬ 
ventare la colonna vuota una parte 
permanente della figura. 

Prima di introdurre il listato 4 
modificate la tavola delle figure me¬ 
diante il listato 3: aggiungete al 
listato 3 questa linea: 35 STOP. A- 
desso fate girare il listato 3. A que¬ 
sto punto la vostra figura sarà sullo 
schermo, e HR/HL saranno imposta¬ 
te a dovere con una colonna di byte 
vuoti sul davanti (cioè sulla destra) 
della figura. Ora fate CALL 37729, 
chiamando SCAN per creare una 
nuova tavola delle figure, e salvatela 
sul dischetto con BSAVE FURGO¬ 
NE* 1#144,A$9000,L105. Adesso 


potete cancellare il listato 3 e intro¬ 
durre il listato 4, che come noterete 
è molto più semplice del listato 3. 

Quando eseguirete il listato 4 sco¬ 
prirete che gira bene come il nostro 
test precedente, pur avendo meno i- 
struzioni. Non riuscirete probabil¬ 
mente a rilevare alcuna differenza di 
velocità, ma in un programma in 
cui si manipolano molte figure le 
differenze potrebbero essere evidenti. 

Ecco come funziona il listato 4: la 
linea 10 fa ancora quello che faceva 
nelle precedenti prove. La linea 20 è 
uguale a prima, tranne il fatto che 
FIR è passato adesso da 5 a 6. Non 
c’è linea 30. Non abbiamo bisogno 
di aggiungere la colonna supplemen¬ 
tare di byte perché è già incorporata 
nella nostra figura. Gli altri soli 
cambiamenti si trovano nelle linee 
80 e 130. La linea 80 non fa che can¬ 
cellare l’ultimo incremento di 
HR/HL dalla linea 70 e invertire la 
figura, il che mette inoltre a sinistra 
la colonna di byte vuoti. La linea 


POKE SPECIALI da usare con il driver: 

POKE 37201,96 POKE 37235,96 Modificano SHFTR4 e SHFTL4 per 
cancellare lo scambio di pagine automatico e trattare solo una pagina 
alla volta (per l’uso con figure multiple). 

POKE 37201,165 POKE 37235,165 Ripristinano SHFTR4 e SHFTL4 al 
normale scambio di pagine (per l’uso con una sola figura). 

Come dovreste ricordare dalle nostre precedenti trattazioni, quando 
avete a che fare con più di una figura alla volta dovete spostare tutte le 
vostre figure su un'unica pagina prima di scambiare le pagine. Quando 
avete a che fare con più di una figura introducete prima i POKE 
occorrenti per annullare lo scambio di pagine, poi chiamate SHFTR4 o 
SHFTL4 per spostare a pagina 2. Quindi trasferite le altre vostre figure 
su pagina 2. Infine introducete SHFTR4 o SHFTL4 a 37180 o 37214 per 
scambiare le pagine e spostare la figura su pagina 1, dopo di che 
dovrete completare il movimento per le altre vostre figure su pagina 1. 

I primi due POKE sostituiscono con RTS il LDA delle linee 31 e 45 del 
listato 6, e i secondi due POKE ricollocano il LDA nelle stesse linee. 


85 












Listato 4. Mantenimento colonna di byte vuoti 


5 REM RICHIEDE BLOCK ROUTINES E IL FURGONE+1 #144 
10 HGR : CALL 37799: POKE 251,144 
20 POKE 252,130: POKE 253,144: POKE 254,6: POKE 255,0: CALL 37679 

50 FOR X - 0 TO 33 

60 FOR Y * 1 TO 7: CALL 37390: NEXT : REM SPOSTA DI 1 BYTE 

70 CALL 37296: REM INCREMENTA HR/HL 

80 NEXT : CALL 37281: CALL 37606: REM INVERTE LA FIGURA 
100 FOR X - 0 TO 33 

110 FOR Y - 1 TO 7: CALL 37301: NEXT : REM SPOSTA DI 1 BYTE A SI 
NISTRA 

120 CALL 37281: REM DECREMENTA HR/HL 

130 NEXT : CALL 37606: REM INVERTE LA FIGURA 

140 GOTO 50 


DOS 3.3 


Apple Ile 
Apple Ile 


Listato 5. Versione in L.M. 
del listato 4 


800.851 


0800- 

20 

A7 

93 

A9 

90 

85 

FB 

A9 

0808- 

82 

85 

FC 

A9 

90 

85 

FD 

A9 

0810- 

06 

85 

FE 

A9 

00 

85 

FF 

20 

0818- 

2F 

93 

A9 

21 

85 

EB 

A9 

07 

0820- 

85 

EC 

20 

0E 

92 

C6 

EC 

DO 

0828- 

F 9 

20 

B0 

91 

C 6 

EB 

DO 

EE 

0830- 

20 

Al 

91 

20 

E 6 

92 

A9 

21 

0838- 

85 

EB 

A9 

07 

85 

EC 

20 

B5 

0840- 

91 

C6 

EC 

DO 

F9 

20 

Al 

91 

0848- 

C6 

EB 

DO 

EE 

20 

E6 

92 

4C 

0850- 

1A 

08 








Salvare con: 

BSAVE LISTATO 5,A$800,L83 


130 non fa che invertire la figura, oc¬ 
cupandosi anche qui della colonna di 
byte vuoti. 

In sostanza nel listato 4 abbiamo 
fatto della colonna di byte vuoti una 
parte permanente della figura. Ogni 
volta che attraversiamo uno dei loop 
di sette spostamenti inviamo questa 
prima colonna di byte vuoti della ta¬ 
vola delle figure nel famigerato buco 
nero dello spazio. Tuttavia, dato che 
la rimettiamo a posto quando incre¬ 
mentiamo o decrementiamo HR/HL 
ogni sette spostamenti, va bene co¬ 
sì, perché non ci spostiamo mai tan¬ 
to in là da danneggiare la figura vera 
e propria, che comincia solo con la 
seconda colonna di byte della tavola. 

Il dump esadecimale del listato 
5 è una versione in linguaggio mac¬ 
china del listato 4. Per usarlo dovre¬ 
te mettere in memoria il driver e 
FURGONE+1 #144, poi introdurre 
i byte esadecimali tramite il Moni¬ 
tor partendo da $800. Poi introduce¬ 
te HGR e fate CALL 2048. 

Questo volta il vostro autocarro si 
muoverà molto più rapidamente at¬ 
traverso lo schermo. Adesso vedre¬ 
mo come trattare laminazione a spo¬ 
stamento mediante lo scambio di pa¬ 
gine, che probabilmente userete in 
molti dei vostri programmi. 

Passare allo scambio di pagine 
con l'animazione a spostamento è ab¬ 
bastanza semplice; ci sono però due 
differenze. La prima è che invece di 
muovere un solo punto per mossa 
passeremo a due punti per mossa, 
un movimento ancora piccolo a suf¬ 
ficienza perché laminazione resti pia¬ 
cevole e scorrevole. 

Un vantaggio importante dell'uso 
dellanimazione a scambio di pagine 
è la protezione del colore. Se aveste 


usato nelle precedenti prove di spo¬ 
stamento a un bit una figura conte¬ 
nente colore questo avrebbe sfarfalla¬ 
to a ogni spostamento. 

Con lo scambio di pagine visualiz¬ 
zeremo la figura solo ogni due spo¬ 
stamenti, e questo terrà sempre i bit 
su coordinate DISPARI o PARI, eli¬ 
minando ogni cambiamento visibile 
del colore. 

Lasecondadifferenzaèchemettere- 
mo sempre due colonne di byte vuo¬ 
ti immediatamente davanti ai byte 
della figura, e faremo un doppio in¬ 
cremento di HR e HL ogni sette spo¬ 
stamenti. Per mantenere facile il la¬ 
voro incorporeremo nella nostra fi¬ 
gura le due colonne supplementari di 
byte vuoti. 


Velocizzazione 
e miglioramenti 

E' stata ormai presentata la mag¬ 
gioranza delle parti essenziali del dri¬ 
ver. Le routine che esaminiamo ades¬ 
so non sono altro che routine genera¬ 
lizzate, intese a combinare diverse i- 
struzioni e chiamate dell Applesoft 
in un'unica routine in linguaggio 
macchina, che contribuisca a far ri¬ 
sparmiare memoria, accelerare l'ese¬ 
cuzione e rendere più facile il debug¬ 
ging del programma finito. 

La routine SETCTR viene usata 
per impostare o reimpostare su 14 
il contatore dei loop di spostamento, 
in modo da potere tener nota del pun¬ 
to in cui ci si trova nei loop, e del 


Listato 6. Routine SHIFT e FLIP 


SOURCE FILE: LISTATO 6 


-NEXT 

OBJECT FILE NAME 

, IS 

LISTATO 6. 

, OB J0 


911A: 



1 


ORG 

$911A 



91B5: 



2 

SHFTL 

EQU 

S91B5 



920E : 



3 

SHFTR 

EQU 

$920E 



9197: 



4 

MOVEL2 

EQU 

$9197 



91AC: 



5 

MOVER2 

EQU 

$91 AC 



00FB: 



6 

BASH 

EQU 

$FB 

** 

SHAPE # (251) 

911A:A9 

0E 


7 

SETCTR 

LDA 

#14 

* ★ 

CALL 37146 TO ENTER 

911C:A6 

FB 


8 


LDX 

BASH 

★ * 

SET X-REGISTER OFFSET 

911E:9D 

6F 

8F 

9 


STA 

$8F6F,X 

* * 

RESET COUNTER TO 14 

9121:60 



10 


RTS 


** 

DONE-EXIT 

9122 :A9 

00 


11 

DRAW1 

LDA 

#0 

★ * 

CALL 37154 TO ENTER 

9124:8D 

54 

CO 

12 


STA 

$C054 

** 

DISPLAY PAGE 1 

9127:A9 

40 


13 


LDA 

#$40 



9129:85 

E6 


14 


STA 

$E6 

* * 

DRAW PAGE 2 

912B:60 



15 


RTS 


* * 

DONE-EXIT 

912C:A9 

00 


16 

DRAW2 

LDA 

#0 

* * 

CALL 37164 TO ENTER 

912E:8D 

55 

CO 

17 


STA 

$C055 

* * 

DISPLAY PAGE 2 

9131 :A9 

20 


18 


LDA 

#$20 



9133:85 

E6 


19 


STA 

$E6 

* ★ 

DRAW PAGE 1 

9135:60 



20 


RTS 


★ * 

DONE-EXIT 

9136:20 

22 

91 

21 

SHFTR4 

JSR 

DRAW1 

* * 

CALL 37174 TO ENTER 

9139:18 



22 


CLC 


* * 

SET-UP FOR JUMP 

913A:90 

03 


23 


BCC 

J2 

★ * 

GO SHIFT PAGE 2 

913C: 20 

2C 

91 

24 

J1 

JSR 

DRAW2 

** 

SHIFT PAGE 1 (CALL 37180) 

913F:20 

0E 

92 

25 

J2 

JSR 

SHFTR 

★ * 

FIRST SHIFT 

9142:20 

0E 

92 

26 


JSR 

SHFTR 

** 

SECOND SHIFT 

9145:20 

7A 

91 

27 


JSR 

MVCTRR 

** 

DEC CTR/TEST 14 SHIFTS 

9148:20 

0E 

92 

28 


JSR 

SHFTR 

* ★ 

THIRD SHIFT (CALL 37192) 

914B:20 

0E 

92 

29 


JSR 

SHFTR 

* * 

FOURTH SHIFT 
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Listato 7. Espansione delle capacità della figura 


10 HGR : HGR2 : CALL 37799: POKE 251,144 
20 POKE 252,130: POKE 253,144: POKE 254,7: POKE 255,0 
30 CALL 37679: REM DISEGNA LA FIGURA A PAGINA 2 
35 CALL 37146: REM IMPOSTA L'INIZIO DEL CONTATORE=14 
40 POKE 230,32: CALL 37679: CALL 37192: REM DISEGNA A PAGINA 1/S 
POSTA A DESTRA DI 2/DEC CONTATORE 
50 FOR X = 1 TO 56 
60 CALL 37174: NEXT 

70 POKE 230,32: CALL 37226: CALL 37679: REM MUOVE INDIETRO DI 2/ 
CANCELLA PAGINA 1 

80 POKE 230,64: CALL 37606: REM INVERTE PAGINA 2 
85 CALL 37146: REM REIMPOSTA CONTATORE=14 

90 POKE 230,32: CALL 37679: CALL 37226: REM DISEGNA A PAGINA 1/M 
UOVE AVANTI DI 2 
100 FOR X « 1 TO 56 
110 CALL 37208: NEXT 

120 POKE 230,32: CALL 37192: CALL 37679: REM MUOVE INDIETRO DI 2 
/CANCELLA PAGINA 1 

130 POKE 230,64: CALL 37606: REM INVERTE PAGINA 2 
140 GOTO 35 


DOS 3.3 


Apple He 
Apple Ile 


Listato 8. Versione in L.M. 
dei listato 7 


800.86C 


0800- 

20 

Al 

93 

A9 

90 

85 

FB 

85 

0808- 

FD 

A9 

82 

85 

FC 

A9 

07 

85 

0810- 

FE 

A9 

00 

85 

FF 

20 

2F 

93 

0818- 

20 

1A 

91 

A9 

20 

85 

E6 

20 

0820- 

2F 

93 

20 

48 

91 

A9 

38 

85 

0828- 

1B 

20 

36 

91 

C6 

1B 

DO 

F9 

0830- 

A9 

20 

85 

E6 

20 

6A 

91 

20 

0838- 

2F 

93 

A9 

40 

85 

E6 

20 

E6 

0840- 

92 

20 

1A 

91 

A9 

20 

85 

E6 

0848- 

20 

2F 

93 

20 

6A 

91 

A9 

38 

0850- 

85 

1B 

20 

58 

91 

C6 

1B 

DO 

0858- 

F9 

A9 

20 

85 

E6 

20 

48 

91 

0860- 

20 

2F 

93 

A9 

40 

85 

E6 

20 

0868- 

E6 

92 

4C 

18 

08 





Salvare con: 

BSAVE LISTATO 8,A$800,L110 


momento in cui occorre cambiare i 
valori di HR e HL. Si è costruita u- 
na tavola dei contatori, che è situata 
alla fine della pagina 143 della me¬ 
moria. 

Aggiungendo altre routine al dri¬ 
ver potreste scoprire che dovete spo¬ 
stare la tavola più in basso, magari 
a $8E6F o a $8D6F. Per far questo 
basta cambiare l'indirizzo che si vede 
nelle linee 9, 50, 54 e 57. Con la 
presente configurazione ci saranno 
contatori separati allocati a ogni sin¬ 
golo numero di figura, con il conta¬ 
tore #144 all'ultimo byte della pagi¬ 
na, e ciascun numero di figura-nume¬ 
ro di contatore al byte inferiore adia¬ 
cente. Potete immaginare la tavola 
come una matrice in Applesoft. 


Se avete a che fare soltanto con 
qualche figura potreste prendere in 
considerazione per i vostri contatori 
l'impiego di un indirizzo non utiliz¬ 
zato della pagina zero. L'esecuzione 
ne sarà accelerata; dovrete però rive¬ 
dere un po' il driver. 

Se avete a che fare con una figura 
lunga più di una pagina, dovrete 
cambiare alquanto le cose, perché u- 
na volta che BASH sarà stato incre¬ 
mentato dalla routine DRAW o RE- 
VDIR il vostro numero di figura 
punterà al contatore sbagliato. Se 
state impaccando più di una figura 
per pagina questo metodo non fun¬ 
zionerà affatto. State solo in guardia 
contro i potenziali rischi menzionati 
per le altre configurazioni, e badate a 


non lasciare che eventuali tavole del¬ 
le figure a pagina 143 invadano la 
tavola dei contatori. Il byte più bas¬ 
so utilizzato nella tavola dei contato¬ 
ri sarà $8F6F+(valore del numero di 
figura più basso). 

Le routine DRAW1 e DRAW2 del 
listato 6 non fanno che impostare 
la pagina su cui disegnare e la pagi¬ 
na da visualizzare. Il nome della rou¬ 
tine indica quale pagina sarà visualiz¬ 
zata durante le presenti operazioni di 
disegno. _ 

Le routine SHFTR4 e SHFTL4 
sono le routine di spostamento a 
scambio di pagine, e gestiscono la 
parte più importante della manipola¬ 
zione di spostamento. 

SHFTR4 muove la figura a destra 


914E 

20 

7A 

91 

30 


JSR 

MVCTRR 

★ ★ 

DEC CTR/TEST 14 SHIFTS 

9151 

A5 

E6 


31 


LDA 

$E6 

★ ★ 

WHAT PAGE ARE WE ON? 

9153 

C9 

40 


32 


CMP 

#$40 

** 

ARE WE ON PAGE 2? 

9155 

F0 

E5 


33 


BEQ 

J1 

★ ★ 

YES-NOW DO PAGE 1 

9157 

60 



34 


RTS 


★ * 

DONE-EXIT ROUTINE 

9.158 

20 

22 

91 

35 

SHFTL4 

JSR 

DRAW1 

★ ★ 

CALL 37208 TO ENTER 

915B 

18 



36 


CLC 


★ ★ 

SET-UP FOR JUMP 

915C 

90 

03 


37 


BCC 

J4 

*★ 

GO SHIFT PAGE 2 

915E 

20 

2C 

91 

38 

J3 

JSR 

DRAW 2 

★ ★ 

SHIFT PAGE 1 (CALL 37214) 

9161 

20 

B5 

91 

39 

J 4 

JSR 

SHFTL 

★ ★ 

FIRST SHIFT 

9164 

20 

B5 

91 

40 


JSR 

SHFTL 

★ * 

SECOND SHIFT 

9167 

20 

8A 

91 

41 


JSR 

MVCTRL 

★ ★ 

DEC CTR/TEST 14 SHIFTS 

91 6A 

20 

B5 

91 

42 


JSR 

SHFTL 

★ * 

THIRD SHIFT (CALL 37226) 

91 6D 

20 

B5 

91 

43 


JSR 

SHFTL 

★ ★ 

FOURTH SHIFT 

9170 

20 

8A 

91 

44 


JSR 

MVCTRL 

★ ★ 

DEC CTR/TEST 14 SHIFTS 

9173 

A5 

E6 


45 


LDA 

$E6 

★ * 

WHAT PAGE ARE WE ON? 

9175 

C9 

40 


46 


CMP 

#$40 

** 

ARE WE ON PAGE 2? 

9177 

F0 

E5 


47 


BEQ 

J3 

*★ 

YES-NOW DO PAGE 1 

9179 

60 



48 


RTS 


*★ 

DONE-EXIT ROUTINE 

917A 

A6 

FB 


49 

MVCTRR 

LDX 

BASH 

★ * 

CALL 37242 TO ENTER 

917C 

DE 

6F 

8F 

50 


DEC 

$8F6F,X 

★ ★ 

DECREMENT COUNTER 

917F 

DO 

08 


51 


BNE 

J5 

★ ★ 

LESS THAN 14 SHIFTS-JUMP 

9181 

20 

AC 

91 

52 


JSR 

MOVER2 

★ ir 

DOUBLÉ INCREMENT HR/HL 

9184 

A9 

0E 


53 

J 6 

LDA 

#14 

★ ★ 

RESET SHIFT- 

9186 

9D 

6F 

8F 

54 


STA 

$8F6F,X 

ir ir 

COUNTER TO 14 

9189 

60 



55 

J5 

RTS 


ir 

* DONE-EXIT ROUTINE 

918A 

A6 

FB 


56 

MVCTRL 

LDX 

BASH 

ir ★ 

CALL 37258 TO ENTER 

918C 

DE 

6F 

8F 

57 


DEC 

$8F6F,X 

★ ★ 

DECREMENT COUNTER 

918F 

DO 

F8 


58 


BNE 

J5 

★ ★ 

LESS THAN 14 SHIFTS-JUMP 

9191 

20 

97 

91 

59 


JSR 

MOVEL2 

★ ★ 

DOUBLÉ DECREMENT HR/HL 

9194 

18 



60 


CLC 


★ ★ 

SET-UP FOR JUMP 

9195 

90 

ED 


61 


BCC 

J6 

irir 

GO TO COUNTER RESET 


*** SUCCESSFUL ASSEMBLY: NO ERRORS 


Listato 9. Astronave #144 


9000.9025 

9000- 00 OC 00 00 7F 40 03 7F 

9008- 70 07 7F 78 0F 7F 7C 1F 

9010- 7F 7E 39 4C 67 3F 7F 7F 

9018- 0F 7F 7C 03 7F 70 00 7F 

9020- 40 00 1E 00 02 01 

Salvare con: 

BSAVE ASTRONAVE #144,AS9000,L39 


Listato 10: Furgone #146 


9200. 

9259 


9200- 

00 

78 

00 

9208- 

00 

00 

3F 

9210- 

3.F 

00 

OD 

9218- 

1E 

79 

7F 

9220- 

7F 

7F 

40 

9228- 

7F 

7E 

1F 

9230- 

1F 

7F 

7F 

9238- 

7F 

7F 

7F 

9240- 

00 

00 

00 

9248- 

00 

00 

30 

9250- 

38 

18 

00 

9258- 

00 

00 



00 

1E 

00 

01 

7C 

00 

01 

7C 

00 

00 

7D 

7F 

7F 

3F 

3E 

7F 

1E 

3E 

1E 

03 

7E 

1F 

7F 

7F 

7F 

7F 

7F 

7F 

7F 

7E 

7F 

7F 

7E 

0F 

7F 

7E 

00 

00 

60 

18 

00 

70 

18 

00 

00 

18 

00 

00 

00 

00 

00 

00 

00 

00 

78 


Salvare con: 

BSAVE FURGONE #146,AS9200, L91 
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e SHFTL4 la muove a sinistra. Du¬ 
rante la nostra analisi del loro funzio¬ 
namento tenete presente la figura 
3. 

Ecco come funzionano queste rou¬ 
tine. Il formato normale di introdu¬ 
zione di una routine di scambio di 
pagine è sempre consistito nel visua¬ 
lizzare prima la pagina 1 manipolan¬ 
do la pagina 2, poi di scambiare le 
pagine, ripetere il procedimento e u- 
scire dalla routine. Useremo qui que¬ 
sto stesso formato. Le due routine 
funzionano allo stesso modo, e quin¬ 
di usiamo SHFTR4 per vedere che 
cosa fanno. 

Le linee 21-23 predispongono il 
nostro formato visualizzare 1-dise¬ 
gnare 2 e saltano a linea 25. 

Le linee 25-26 spostano la figura 
di due punti a destra (alle stesse coor¬ 
dinate di pagina 1). 

La linea 27 salta a MCVTRR do¬ 
ve il contatore viene decrementato e 
testato per vedere se indichi 14 spo¬ 
stamenti. Se il contatore indica me¬ 
no di 14 spostamenti (in realtà si 
tratta di 14 doppi spostamenti) la 
routine ritorna a linea 28. Se avete 
completato 14 spostamenti saltate a 
MOVER2 dove viene fatto un dop¬ 
pio incremento di HR e HL. Poi il 
contatore viene rimesso a 14 e torna¬ 
te di nuovo a linea 28. 

Le linee 28-30 non fanno che ripe¬ 
tere le azioni di 25-27, lasciando la 
figura di pagina 2 mossa di due pun¬ 
ti davanti alla pagina 1. Le linee 31- 
33 fanno un test per vedere su quale 
pagina stiate disegnando al momen¬ 
to. Se siete a pagina 2 la routine sal¬ 
ta a linea 24, dove avviene lo scam¬ 
bio di pagine, dopo di che scendete a 
eseguire nuovamente le linee 25-30. 

Quando arrivate alle linee 31-33 
sarete questa volta sulla pagina 1 
con la sua figura due punti davanti 
alla pagina 2, e a questo punto usci¬ 
rete dalla routine. 

Come potete vedere SHFTR4 e 
SHFTL4 fanno per voi l'intero scam¬ 
bio di pagine. Le routine MVCTRR 
e MVCTRL non fanno che gestire il 
decremento del contatore, reimpo¬ 
standolo quando sono stati completa¬ 
ti 14 doppi spostamenti, e facendo il 
doppio incremento (o decremento) di 
HR e HL quando occorre. 

Come funziona 
lo scambio di pagine 

Guardiamo l'esempio di figura 
3, dove X indica il punto all'estrema 


destra della figura, per vedere come u- 
tilizzare le routine. 

Per elaborare la figura bisogna di¬ 
segnarla sulla pagina 2 dell'alta riso¬ 
luzione a X=0. Poi si disegna la fi¬ 
gura sulla pagina 1 Hi-Res e la si 
sposta in avanti di due punti a X=2, 
decrementandoilcontatoreperindica- 
re che è stato completato un doppio 
spostamento. 

In questo momento siete nella po¬ 
sizione di partenza appropriata, con 
la figura di pagina 1 due punti davan¬ 
ti alla figura di pagina 2. Per il resto 
del vostro viaggio attraverso lo 
schermo la routine SHFTR4 farà tut¬ 
to quanto occorre per continuare il 
movimento verso destra. 

Al termine del primo loop attraver¬ 
so SHFTR4 il contatore sarà su 5 e 
la figura sarà a 6-pagina 1 e a 4-pagi- 
na 2. Dopo il secondo loop il conta¬ 
tore indicherà 9 e la figura sarà a 1 fi- 
pagina 1 e a 8-pagina 2. Il terzo 
loop finirà con il contatore su 13 e 
la figura a 14-pagina 1 e a 12-pagina 
2. Non appena farete il primo dop¬ 
pio spostamento a pagina 2 durante 
il loop 4 il contatore avrà raggiunto 
14, e a questo punto ci sarà un dop¬ 
pio incremento sia di HR sia di HL. 
Quando completerete il loop 4 il 
contatore indicherà 3 e la figura sarà 
a 18-pagina 1 e a 16-pagina 2. Que¬ 
sta spiegazione del contenuto del 
contatore è inserita per ragioni di 
chiarezza ma non è tecnicamente e- 
satta. In realtà non partiamo da 0 e 
non contiamo fino a 14; partiamo in¬ 
vece da 14 e facciamo un test per ve¬ 
dere quando avremo raggiunto 0. 

Ora che abbiamo esaminato i parti¬ 
colari proviamo a costruire un pro¬ 
gramma che faccia andare il nostro 
autofurgone su e giù attraverso lo 
schermo, e lo inverta all'uno e all'al¬ 
tro capo dello schermo in modo che 
sia sempre rivolto nella direzione 
giusta. Per condurre questa prova do¬ 
vrete aggiungere al driver le routine 
di spostamento e scambio (listato 
6). Per far ciò caricate in memoria 
con BLOAD il listato BLOCK 
ROUTINES, andate in Monitor con 
CALL-151, e inserite in memoria i 
byte del listato 6. Al termine salvate 
il nuovo drive con BSAVE BLOCK 
ROUTINES, A$911AJL$4E6. 

Introducete quindi le linee del pro¬ 
gramma in Applesoft del listato 
7. Dovrete anche creare davanti al¬ 
l'autocarro una nuova tavola delle fi¬ 
gure del camioncino che abbia due 
colonne di byte vuoti davanti alla fi¬ 


gura. Il modo più facile per farlo sa¬ 
rebbe quello di ricaricare il listato 4 
con FURGONE+1 #144, poi ag¬ 
giungere la linea 30 POKE 
254,7:STOP. Una volta che avrete e- 
seguito il programma il vostro fur¬ 
gone sarà sullo schermo e i due byte 
vuoti gli saranno davanti. Allora fa¬ 
te CALL 37729 (la routine SCAN) 
e infine BSAVE FURGONE+2 # 
144,A$9000U120 

Quando avrete fatto girare il pro¬ 
gramma vedrete, come nelle nostre 
precedenti prove, il furgone che si 
muove senza sbalzi avanti e indie¬ 
tro, invertendo direzione di marcia a 
ogni estremità dello schermo. Tene¬ 
te presente che non è necessario che 
la figura sia asimmetrica per usare 
questo metodo di cambio di dire¬ 
zione. 

Vediamo come funziona il pro¬ 
gramma. La linea 10 pulisce entram¬ 
bi gli schermi Hi-Res e predispone 
YTABLE e il numero della figura. 
La linea 20 stabilisce i valori inizia¬ 
li di VT, VB, HR e HL. 

Linea 30: dato che l’ultimo scher¬ 
mo che avete pulito era quello di pa¬ 
gina 2, siete ancora su quella pagi¬ 
na, e quindi disegnate la figura inizia¬ 
le a 0-pagina 2 (figura 2). La linea 
35 chiama CTRSET per inizializza- 
re il contatore dei ioop di sposta¬ 
mento. La linea 40 cambia alla pagi¬ 
na 1 (senza cambiare la pagina che è 
visualizzata), disegna la figura inizia¬ 
le, la muove a destra di due bit (por¬ 
tandola al suo giusto punto di par¬ 
tenza) e decrementa il contatore dei 
loop di spostamento. Osservate che 
siete riusciti a eseguire il doppio 
spostamento a destra e a decrementa- 
re il contator e in u n unico passo ac¬ 
cedendo a SHFTR4 a linea 1280. 

Dovete sempre osservare ogni rou¬ 
tine alla ricerca di punti d’ingresso al¬ 
ternativi, che spesso possono essere 
usati per risolvere problemi speciali. 
Le linee 50-60 gestiscono il movi¬ 
mento della figura per tutto il percor¬ 
so attraverso lo schermo, semplice- 
mente richiamando più e più volte 
SHFTR4. Linea 70: quando arrivate 
a questo punto la figura a pagina 1 è 
spostata a destra di due bit rispetto 
alla sua posizione iniziale nel byte, 
e quindi la dovrete fare arretrare di 
due bit prima di poterla cancellare CE¬ 
RASE) in preparazione dell’inversio¬ 
ne. Ricordate che quando state usan¬ 
do REVDIR con lo scambio di pagi¬ 
ne dovete cancellare la figura su una 
pagina, fame il REVDIR sull'altra 
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Listato 11: 

BLOCK ROUTINES completa 


911A.95FF 
911A- A9 
9120- 8F 

0E 

60 

A6 

A9 

FB 

00 

9D 

8D 

6F 

54 

CO 

A9 

9128- 

40 

85 

E6 

60 

A9 

00 

8D 

55 

9130- 

CO 

A9 

20 

85 

E6 

60 

20 

22 

9138- 

91 

18 

90 

03 

20 

2C 

91 

20 

9140- 

0E 

92 

20 

0E 

92 

20 

7A 

91 

9148- 

20 

0E 

92 

20 

0E 

92 

20 

7A 

9150- 

91 

A5 

E6 

C9 

40 

F0 

E5 

60 

9158- 

20 

22 

91 

18 

90 

03 

20 

2C 

9160- 

91 

20 

B5 

91 

20 

B5 

91 

20 

9168- 

8A 

91 

20 

B5 

91 

20 

B5 

91 

9170- 

20 

8A 

91 

A5 

E6 

C9 

40 

F0 

9178- 

E5 

60 

A6 

FB 

DE 

6F 

8F 

DO 

9180- 

08 

20 

AC 

91 

A9 

0E 

9D 

6F 

9188- 

8F 

60 

A6 

FB 

DE 

6F 

8F 

DO 

9190- 

F8 

20 

97 

91 

18 

90 

ED 

A5 

9198- 

FF 

C9 

02 

90 

0E 

C6 

FF 

C 6 

91A0- 

FE 

A5 

FF 

C9 

01 

90 

04 

C6 

91A8- 

FF 

C6 

FE 

60 

E6 

FF 

E6 

FE 

91B0- 

E6 

FF 

E6 

FE 

60 

A5 

FD 

85 

91B8- 

06 

20 

91 

93 

18 

A4 

FE 

A9 

91C0- 

00 

85 

08 

85 

09 

85 

07 

90 

91C8- 

02 

E6 

08 

B1 

26 

C9 

80 

90 

91D0- 

02 

E6 

09 

A5 

08 

F0 

07 

B1 

91D8- 

26 

09 

80 

4C 

E2 

91 

B1 

26 

91E0- 

29 

7F 

6A 

91 

26 

90 

02 

E6 

91E8- 

07 

A5 

09 

C9 

01 

90 

06 

B1 

91F0- 

26 

09 

80 

91 

26 

C4 

FF 

F0 

91F8- 

08 

88 

A5 

07 

C9 

01 

4C 

BF 

9200- 

91 

C6 

06 

A5 

06 

C9 

FF 

F0 

9208- 

04 

C5 

FC 

B0 

AC 

60 

A5 

FD 

9210- 

85 

06 

20 

91 

93 

18 

A4 

FF 

9218- 

A9 

00 

85 

08 

85 

09 

B1 

26 

9220- 

2A 

91 

26 

B0 

02 

90 

02 

E6 

9228- 

08 

C9 

80 

B0 

02 

90 

02 

E6 

9230- 

09 

A5 

08 

DO 

09 

B1 

26 

29 

9238- 

7F 

91 

26 

4C 

44 

92 

B1 

26 

9240- 

09 

80 

91 

26 

C4 

FE 

F0 

09 

9248- 

C8 

18 

A5 

09 

C9 

01 

4C 

18 

9250- 

92 

C6 

06 

A5 

06 

C9 

FF 

F0 

9258- 

04 

C5 

FC 

B0 

B5 

60' 

• 38 

A5 

9260- 

FC 

E5 

E3 

85 

FC 

38 

A5 

FD 

9268- 

E5 

E3 

85 

FD 

60 

18 

A5 

FC 

9270- 

65 

E3 

85 

FC 

18 

A5 

FD 

65 

9278- 

E3 

85 

FD 

60 

A9 

00 

8D 

54 

9280- 

CO 

A9 

40 

85 

E6 

A5 

FC 

C5 

9288- 

E3 

90 

0F 

20 

6D 

92 

20 

2F 

9290- 

93 

20 

5E 

92 

20 

5E 

92 

20 

9298- 

2F 

93 

60 

A9 

00 

8D 

55 

CO 

92A0- 

A9 

20 

85 

E6 

20 

6D 

92 

20 


92A8- 

2F 

93 

20 

5E 

92 

20 

5E 

92 

92B0- 

20 

2F 

93 

60 

A9 

00 

8D 

54 

92B8- 

CO 

A9 

40 

85 

E6 

20 

5E 

92 

92C0- 

20 

2F 

93 

20 

6D 

92 

20 

6D 

92C8- 

92 

20 

2F 

93 

60 

A9 

00 

8D 

92D0- 

55 

CO 

A9 

20 

85 

E6 

20 

5E 

92D8- 

92 

20 

2F 

93 

20 

6D 

92 

20 

92E0- 

6D 

92 

20 

2F 

93 

60 

A9 

00 

92E8- 

85 

FA 

A5 

FD 

85 

06 

20 

91 

92F0- 

93 

A4 

FF 

A2 

00 

Al 

FA 

C9 

92F8- 

7F 

F0 

15 

C9 

01 

90 

11 

86 

9300- 

F9 

4A 

26 

F9 .58 

E0 

07 

90 

9308- 

F8 

4A 

A5 

F9 

90 

02 

09 

80 

9310- 

91 

26 

C8 

E6 

FA 

DO 

02 

E6 

9318- 

FB 

C4 

FE 

90 

D6 

F0 

D4 

C6 

9320- 

06 

A5 

06 

C9 

FF 

F0 

04 

C5 

9328- 

FC 

B0 

C3 

20 

61 

93 

60 

A9 

9330- 

00 

85 

FA 

A5 

FD 

85 

06 

20 

9338- 

91 

93 

A4 

FE 

A2 

00 

Al 

FA 

9340- 

51 

26 

91 

26 

88 

18 

E6 

FA 

9348- 

DO 

02 

E6 

FB 

CO 

FF 

F0 

04 

9350- 

C4 

FF 

B0 

EA 

C 6 

06 

A5 

06 

9358- 

C9 

FF 

F0 

04 

C5 

FC 

B0 

D7 

9360- 

60 

A9 

00 

85 

FA 

A5 

FD 

85 

9368- 

06 

20 

91 

93 

A4 

FE 

A2 

00 

9370- 

B1 

26 

81 

FA 

88 

18 

E6 

FA 

9378- 

DO 

02 

E6 

FB 

CO 

FF 

F0 

04 

9380- 

C4 

FF 

B0 

EC 

C6 

06 

A5 

06 

9388- 

C9 

FF 

F0 

04 

C5 

FC 

B0 

D9 

9390- 

60 

A4 

06 

B1 

CE 

85 

26 

A5 

9398- 

E6 

C9 

40 

DO 

05 

B1 

DE 

85 

93A0- 

27 

60 

B1 

EE 

85 

27 

60 

A9 

93A8- 

80 

85 

CE 

A9 

94 

85 

CF 

A9 

93B0- 

40 

85 

EE 

A9 

95 

85 

EF 

A9 

93B8- 

CO 

85 

DE 

A9 

93 

85 

DF 

60 

93C0- 

40 

44 

48 

4C 

50 

54 

58 

5C 

93C8- 

40 

44 

48 

4C 

50 

54 

58 

5C 

93D0- 

41 

45 

49 

4D 

51 

55 

59 

5D 

93D8- 

41 

45 

49 

4D 

51 

55 

59 

5D 

93E0- 

42 

46 

4A 

4 E 

52 

56 

5A 

5E 

93E8- 

42 

46 

4A 

4E 

52 

56 

5A 

5E 

93F0- 

43 

47 

4B 

4F 

53 

57 

5B 

5F 

93F8- 

43 

47 

4B 

4F 

53 

57 

5B 

5F 

9400- 

40 

44 

48 

4C 

50 

54 

58 

5C 

9408- 

40 

44 

48 

4C 

50 

54 

58 

5C 

9410- 

41 

45 

49 

4D 

51 

55 

59 

5D 

9418- 

41 

45 

49 

4D 

51 

55 

59 

5D 

9420- 

42 

46 

4A 

4E 

52 

56 

5A 

5E 

9428- 

42 

46 

4A 

4E 

52 

56 

5A 

5E 

9430- 

43 

47 

4B 

4F 

53 

57 

5B 

5F 

9438- 

43 

47 

4B 

4F 

53 

57 

5B 

5F 

9440- 

40 

44 

48 

4C 

50 

54 

58 

5C 

9448- 

40 

44 

48 

4C 

50 

54 

58 

5C 

9450- 

41 

45 

49 

4D 

51 

55 

59 

5D 

9458- 

41 

45 

49 

4D 

51 

55 

59 

5D 

9460- 

42 

46 

4A 

4E 

52 

56 

5A 

5E 

94 68- 

42 

46 

4A 

4E 

52 

56 

5A 

5E 


9470- 

43 

47 

4B 

4F 

53 

57 

5B 

5F 

9478- 

43 

47 

4B 

4F 

53 

57 

5B 

5F 

9480- 

00 

00 

00 

00 

00 

00 

00 

00 

9488- 

80 

80 

80 

80 

80 

80 

80 

80 

9490- 

00 

00 

00 

00 

00 

00 

00 

00 

9498- 

80 

80 

80 

80 

80 

80 

80 

80 

94A0- 

00 

00 

00 

00 

00 

00 

00 

00 

94A8- 

80 

80 

80 

80 

80 

80 

80 

80 

94B0- 

00 

00 

00 

00 

00 

00 

00 

00 

94B8- 

80 

80 

80 

80 

80 

80 

80 

80 

94C0- 

28 

28 

28 

28 

28 

28 

28 

28 

94C8- 

A8 

A8 

A8 

A8 

A8 

A8 

A8 

A8 

94D0- 

28 

28 

28 

28 

28 

28 

28 

28 

94D8- 

A8 

A8 

A8 

A8 

A8 

A8 

A8 

A8 

94E0- 

28 

28 

28 

28 

28 

28 

28 

28 

94E8- 

A8 

A8 

A8 

A8 

A8 

A8 

A8 

A8 

94F0- 

28 

28 

28 

28 

28 

28 

28 

28 

94F8- 

A8 

A8 

A8 

A8 

A8 

A8 

A8 

A8 

9500- 

50 

50 

50 

50 

50 

50 

50 

50 

9508- 

DO 

DO 

DO 

DO 

DO 

DO 

DO 

DO 

9510- 

50 

50 

50 

50 

50 

50 

50 

50 

9518- 

DO 

DO 

DO 

DO 

DO 

DO 

DO 

DO 

9520- 

50 

50 

50 

50 

50 

50 

50 

50 

9528- 

DO 

DO 

DO 

DO 

DO 

DO 

DO 

DO 

9530- 

50 

50 

50 

50 

50 

50 

50 

50 

9538- 

DO 

DO 

DO 

DO 

DO 

DO 

DO 

DO 

9540- 

20 

24 

28 

2C 

30 

34 

38 

3C 

9548- 

20 

24 

28 

2C 

30 

34 

38 

3C 

9550- 

21 

25 

29 

2D 

31 

35 

39 

3D 

9558- 

21 

25 

29 

2D 

31 

35 

39 

3D 

9560- 

22 

26 

2A 

2E 

32 

36 

3A 

3E 

9568- 

22 

26 

2A 

2E 

32 

36 

3A 

3E 

9570- 

23 

27 

2B 

2F 

33 

37 

3B 

3F 

9578- 

23 

27 

2B 

2F 

33 

37 

3B 

3F 

9580- 

20 

24 

28 

2C 

30 

34 

38 

3C 

9588- 

20 

24 

28 

2C 

30 

34 

38 

3C 

9590- 

21 

25 

29 

2D 

31 

35 

39 

3D 

9598- 

21 

25 

29 

2D 

31 

35 

39 

3D 

95A0- 

22 

26 

2A 

2E 

32 

36 

3A 

3E 

95A8- 

22 

26 

2A 

2E 

32 

36 

3A 

3E 

95B0- 

23 

27 

2B 

2F 

33 

37 

3B 

3F 

95B8- 

23 

27 

2B 

2F 

33 

37 

3B 

3F 

95C0- 

20 

24 

28 

2C 

30 

34 

38 

3C 

95C8- 

20 

24 

28 

2C 

30 

34 

38 

3C 

95D0- 

21 

25 

29 

2D 

31 

35 

39 

3D 

95D8- 

21 

25 

29 

2D 

31 

35 

39 

3D 

95E0- 

22 

26 

2A 

2E 

32 

36 

3A 

3E 

95E8- 

22 

26 

2A 

2E 

32 

36 

3A 

3E 

95F0- 

23 

27 

2B 

2F 

33 

37 

3B 

3F 

95F8- 

23 

27 

2B 

2F 

33 

37 

3B 

3F 


Checksum del listato 11 

NOME FILE: 

BLOCK ROUTINES 

TIPO: B 
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CHECKSUM : 
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pagina e infine ridisegnare (DRAW) 
la figura invertita sulla prima pagi¬ 
na. Prima predisponete il disegno su 
pagina 1 (anche qui senza cambiare 
la pagina che è visualizzata). Poi, u- 
sando il punto d'ingresso medio di 
SHFTL4, arretrate la figura di due 
bit, e infine cancellatela. 

La linea 80 riporta a pagina 2 e in¬ 
verte semplicemente la figura. La li¬ 
nea 85 reimposta il contatore dei 
loop di spostamento in preparazione 
del viaggio di ritorno. La linea 90 ri¬ 
commuta a pagina 1, disegna la figu¬ 
ra invertita, e usa il punto d’ingresso 
medio di SHFTL4 per muovere la fi¬ 
gura in avanti di due punti e decre- 
mentare il contatore in preparazione 
per il movimento verso sinistra. 

Le linee 100-110 muovono com¬ 
pletamente la figura attraverso lo 
schermo richiamando ripetutamente 


SHFTL4. Linea 120: questa volta la 
figura è nuovamente spostata di due 
bit dalla posizione di partenza nel 
byte a pagina 1, e perciò predispo¬ 
nete la pagina 1, chia mate il punto 
d'ingresso medio di SHFTR4 per far 
arretrare la figura di due bit e infine 
cancellatela dallo schermo. 

La linea 130 commuta a pagina 2 
e inverte la figura. La linea 140 sal¬ 
ta indietro alla linea 35 che reimpo¬ 
sterà il contatore e ridisegnerà la fi¬ 
gura invertita sulla pagina 1, in mo¬ 
do che possiate ricominciare tutto da 
capo. 

Tenete presente che ci sono molti 
modi per scrivere un programma del 
genere, e che il nostro test è solo u- 
no dei metodi possibili. Per esem¬ 
pio se avrete molte figure impegnate 
in azioni del tipo in cui si inverte al¬ 
ternativamente la direzione di marcia 


può darsi che sia il caso di combina¬ 
re le linee da 70 a 90, o altre simili 
sequenze, in un’unica breve aggiunta 
al driver in linguaggio macchina, 
che svolgerà tutti quei compiti in 
un' unica semplice CALL. Come si 
presenterebbe questo programma di 
prova in una versione interamente in 
linguaggio macchina? Per usarlo do¬ 
vrete avere in memoria il driver, 
FURGONE+2 #144 e il dump esade- 
cimale del listato 8. Per farlo gira¬ 
re è sufficiente introdurre HGR: 
HGR2 e poi fare CALL 2048. 

- \ 

Questo programma è disponibile 
su dischetto. L’elenco, i prezzi 
e le modalità d’ordine di questo 
e degii altri dischetti disponibili 
sono riportati nella rubrica 
Disk Service. 

s J 


® By Nibble e Applicando 
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L'MS Basic 
è andato in tilt 

Mentre stavo correg¬ 
gendo gli errori di copia¬ 
tura sul programma Mac 
graph, apparso sul nume¬ 


ro di marzo, l'MS Basic 
è andato in tilt: il movi¬ 
mento del mouse non a- 
veva alcun effetto sullo 
schermo e così anche le i- 
struzioni mandate trami¬ 
te la tastiera. Di solito in 


questi casi appare la fine¬ 
stra che segnala l'errore 
di sistema, ma inspiega¬ 
bilmente nel mio ciò 
non è avvenuto e dal dri¬ 
ve esterno è stato espul¬ 
so il disco con la registra¬ 
zione di Mac graph; non 
potendo fare altro, ho 
schiacciato il tasto di re¬ 
set. Riprovando a carica¬ 
re il disco dell'MS Basic, 
sullo schermo è apparsa 
l'icona del Mac infelice a 
segnalarmi che il conte¬ 
nuto era stato cancellato 
o reso illegibile (cosa 
che ho poi verificato inse¬ 
rendo prima il disco di si¬ 
stema e poi quello del- 
l'MS Basic, ottenendo co¬ 
me risultato la richiesta 
di inizializzare il disco 
cancellato). Vorrei sapere 
quali possono essere sta¬ 
te le cause di tale fenome¬ 
no (se sono dovute al- 
l'hardware come posso 
porvi rimedio?) e a cosa 
è dovuto l'errore di si¬ 
stema. 

Daniele Mirolo 

Ponzano Veneto (TV) 

E' molto probabile che 
l'inconveniente in cui è 
incorso mentre corregge¬ 
va il suo programma in 
Basic risieda nel fatto di 
aver scritto un program¬ 
ma con delle routine di 
chiamata al toolbox Ma¬ 
cintosh (menù, finestre e 
box) con una versione di 
Basic in cui queste routi¬ 
ne non sono previste; si 
accerti di avere a disposi¬ 
zione la versione MS-Ba¬ 
sic 2.0 o 2.1 per scrivere 
il programma MacGraph. 

Spreadsheet 

Appleworks 

Possiedo il programma 
Apple Works da circa un 
anno, ma finora non mi 
era capitato mai di creare 
un rapporto con il Word 
processor e il foglio elet¬ 
tronico. Così mi sono ac¬ 
corto che quando si copia 
un foglio elettronico sul 


word processor di Apple 
Works, i numeri nel vi¬ 
deo si dispongono in ma¬ 
niera del tutto disordina¬ 
ta. Inizialmente ho pensa¬ 
to che la colpa fosse dei 
parametri di stampa (giu¬ 
stificato e proporzionale- 
1), che ho inserito per 
meglio presentare il testo 
di accompagnamento al 
foglio; eliminandoli però 
non sono riuscito a mi¬ 
gliorare la situazione. Ho 
guardato il manuale ma 
al riguardo non dice nien¬ 
te. Allora ho immesso 
dei trattini per riempire 
gli spazi vuoti fra le voci 
del foglio e i numeri, ma 
non c'è stato verso di 
mettere in colonna tali 
numeri. Un programma 
certamente molto poten¬ 
te, come Apple Works, 
che non permette di rea¬ 
lizzare un bel rapporto 
non vale poi molto. 

Maria Grillo 

Sciacca (AG) 

Il problema del cattivo 
allineamento di tabelle 
contenenti numeri e crea¬ 
te con lo spreadsheet e 
poi riportate nel word 
processor dipende dal fat¬ 
to che lo spreadsheet usa 
come separatore di campi 
un tabulato, per cui sarà 
sufficiente all'interno del 
wordprocessor giustifica¬ 
re a sinistra la parte ine¬ 
rente alla tabella con 10 
caratteri per pollice. 

Non stampa 
i grafici 

Sono un vostro letto¬ 
re da sempre. Il mio pro¬ 
blema è il seguente: 

Ho un Apple Ile con 
un solo drive che recente¬ 
mente ho dotato di una 
stampante Apple Dot Ma¬ 
trix al posto della Silen- 
type. Senonché il pro¬ 
gramma Visiplot che pos¬ 
seggo e che funzionava 
bene con la Silentype, 
con la Dot Matrix non 
stampa più i grafici. Il 


L'angolo 
del reclamo 


Da un lettore di Cuneo giunge questa lettera, 
alla quale risponde la Apple Computer: 

Sono uno studente universitario possessore di 
un favoloso Mac 512/c (N° di serie F50739 
FM0001WP) dal luglio 1985. Purtroppo però sulla 
mia scrivania l'ho visto ben poco! Per ben tre vol¬ 
te infatti (al momento ne sono sprovvisto) è stato 
rispedito alla Apple SpA di Reggio Emilia e tutte e 
tre le volte per lo stesso inconveniente: la stam¬ 
pante (Imagewriter) non riceveva alcun impulso e 
di conseguenza non stampava un bel niente! Cer¬ 
to che la mia non è una diagnosi come si deve, 
però altro non ho potuto sapere dai signori della 
Apple SpA. Ora mi chiedo e chiedo a voi: 

• perche si continua con queste riparazioni certa¬ 
mente provvisorie? 

• forse non si è capito che il guasto è sicuramen¬ 
te più serio, vista la sua quasi periodicità? 

• aspetteranno mica lo scadere della garanzia 
per spillarmi dei quattrini? 

Certo sono deluso e credo di aver già speso ab¬ 
bastanza per questo sfortunato Mac; tanto più 
che pensavo che la stessa cifra di acquisto po¬ 
tesse in un certo senso rappresentare una "ga¬ 
ranzia" di affidabilità. Credendo fermamente nella 
serietà della vostra rivista, gradirei pubblicaste 
questa lettera di reclamo. 

Fabio Turchi 

La vicenda del signor Fabio Turchi fu trattata 
dalla ditta Rossi Computer di Cuneo, rivenditore 
disdettato da Apple il 18/10/85. Al servizio di as¬ 
sistenza di Apple Computer risulta che il Mac¬ 
intosh sia stato inviato a Reagio Emilia solo due 
volte e oltre a tutto che, dopo la prima ripara¬ 
zione effettuata in data 25.9.85, al secondo invio 
delTI/4/86 sia la macchina che la stampante ri¬ 
sultassero perfettamente funzionanti. Non aven¬ 
do riscontrato alcun difetto, i tecnici Apple resti¬ 
tuirono la macchina al rivenditore, avvertendo di 
controllare meglio il software e i cavi di collega¬ 
mento del cliente. E' quindi importante sotto- 
lineare che la maggior parte delle disfunzioni giu¬ 
stamente lamentate dal signor Turchi va ricon¬ 
dotta al fatto che il rivenditore non era in pos¬ 
sesso del materiale di assistenza necessario e 
che non effettuò nessun controllo qualificato sul 
sistema dell'utente verificandone l'installazione. 
E' proprio per evitare disguidi di questo genere 
che Apple Computer invita gli utenti a verificare 
che i rivenditori ai quali si rivolgono siano stati i- 
dentificati quali Apple Center e cioè qualificati 
per assistenza, training, consulenza e software. 
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programma è il Yisplot 
C1981 1.00 Micro Finan- 
ce Systems. Mi potreste 
suggerire quali modifiche 
posso apportarvi, e in 
quali righe, affinché pos¬ 
sa stampare i grafici con 
la Dot Matrix? 

Lidio Faccioni 
Rovigo 

Per risolvere il suo pro¬ 
blema e stampare i grafi¬ 
ci di Visiplot sulla Dot 
Matrix bisogna che lei 
aggiorni la versione LO 
del Visiplot in suo pos¬ 
sesso con la relativa ver¬ 
sione 1.1; per maggiori 
informazioni le consiglia¬ 
mo di rivolgersi al suo ri¬ 
venditore di fiducia. 

Apple, Duodisk 
e ImageWriter 

Uso da qualche tempo, 
senza problemi, Apple- 
Works sul mio sistema 
costituito da Apple Ile + 
Duodisk + Imagewriter. 

Qualche volta però a- 
vrei bisogno di usare lo 
stesso programma su un 
sistema analogo con una 
stampante Epson RX-80. 
Non sono finora riuscito 
a ottenere nessuna stam¬ 
pa malgrado ogni mio 
tentativo (sostituzione 
del file SEG.PR, invio 
di codici speciali) e mal¬ 
grado nel manuale si af¬ 
fermi che tale stampante 
è supportata dal program¬ 
ma. Mi è stato detto che 
la colpa di questa situa¬ 
zione è dell'interfaccia u- 
sata (Epson). Gradirei un 
vostro parere in merito. 

Dott. Giampaolo 
Piaserico 
Montebelluna (TV) 

Purtroppo quanto le 
hanno detto corrisponde a 
verità: non può stampare 
con Apple Work su una 
Epson RX-80 a causa del¬ 
l’interfaccia della Epson; 
le consigliamo di rivol¬ 
gersi agli uffici tecnici 
Apple o Epson-Segi. 



Compilatore 
per il Pro-DOS? 

Desidero sapere se esi¬ 
ste un compilatore per il 
ProDos e routine di NO- 
COPY per tale sistema o- 
perativo. 

In caso affermativo vi 
prego di comunicarmi 
prezzi e punti vendita. 

A. Tommasini 
Itri (LT) 

Al momento non risul¬ 
ta disponibile sul merca¬ 
to un compilatore in Pro¬ 
Dos, né tanto meno una 
routine NO-Copy. 

Oroscopo 
e Golf 

Ho acquistato presso di 
voi due dischetti che mi 
danno dei problemi: 

1) Programma Orosco¬ 
po: dopo l’esecuzione del 
calcolo delle case, i suc¬ 
cessivi si bloccano, dan¬ 
do indicazione di errore 
(division by zero, illegal 
quantity error ecc.). 

2) Programma Golf: u- 
tilizzando il percorso in¬ 
serito nel programma, il 
gioco si blocca al mo¬ 
mento del lancio della 
pallina. Il problema peg¬ 
giora digitando personal¬ 
mente il listato da voi 
pubblicato: in questo ca¬ 
so le buche da me dise¬ 
gnate non vengono addi¬ 
rittura visualizzate. Vor¬ 
rei spiegazioni e con¬ 
sigli. 

Gianfranco Rizzi 
Milano 

/ due programmi fun¬ 
zionano in tutte le loro 
opzioni e il listato del 
programma Golf pubbli¬ 
cato sulla rivista è giu¬ 
sto. Tuttavia nella dupli¬ 
cazione dei dischetti in 
suo possesso potrebbe es¬ 
sere avvenuto qualche in¬ 
conveniente. Ce li rispe¬ 
disca e le verranno sosti¬ 
tuiti con copie perfetta¬ 
mente funzionanti. 


** Mercatino delle Mele «* 

• VENDO stampante Scribe come nuova correda¬ 
ta di 3 nastri e manuale originale per passaggio 
a Image Writer II. L. 300.000 Trattabili. Spedi¬ 
zione in contrassegno. Giuseppe Carollo - C.P. 
2017 c/o Succursale 10, 74100 Siracusa. Tel. 
099/333438 ore pasti. 

• VENDO Apple He + monitor + supporto moni¬ 
tor + drive aggiuntivo + mouse + stampante Ima¬ 
ge Writer in blocco a L. 4.500.000 trattabili. Re¬ 
galo molti programmi (tra cui Tre x Te, Pinpoin- 
t, Apple Writer, Dossier). Vendo separatamente 
drive aggiuntivo da 140K a L. 450.000. Giovan¬ 
ni Zanuso (Calzature), Via A. Diaz 8r - 17048 
Valleggia (SV). Tel.019/882508 ore pasti. 

• CERCÒ possessori di Apple He e He per 
scambiare programmi di ogni tipo (grafici, utili¬ 
tà, giochi ecc.) preferibilmente zona Vicenza. 
Massimo Garzotto, Via False 4, - 36050 Monte- 
viale (VI). Tel.0444/552201. 

• VENDO o scambio manuali in italiano per I- 
BM - PC e compatibili. Annuncio sempre valido 
vendo monitor Philips F.V. con AV010, perfet¬ 
to, L. 150.000. Roberto Gazzaniga, Via Cavour 
13 - 27055 Rivanazzano (PV). Tel.0383/92354. 

• VENDO Apple De 128K, 2 drive, stampante 
grafica, monitor, magnifico software (Apple Wor¬ 
ks, Apple Writer, Prodos, Pascal, Graphworks, 
Compilatore, Tasc, giochi, Utilities, copiatori, 
Las One, Jane Guttemberg, S argon, Pilot, ecc.) a 
L.3.200.000. Fabio Mora, Via Cantore 14/11 - 

16149 Genova. Tel.010/468515. 

• COMPRO programmi per Macintosh e Apple 
II. Per Mac acquisto qualsiasi accessorio, 2° dri¬ 
ve, Image Writer E, trasformazione da 512 a 
Plus. Acquisto Apple II e Apple Ile + qualsiasi 
accessorio. Italico Pitassi, Via Borromeo 4, 
35100 Padova. Tel.049/26974. 

• VENDO Apple He con tastiera, monitor con 
supporto, stampante Image Writer, mouse, Hand 
Controller, Joystick, visore a cristalli liquidi, 
borsa e numerosi dischetti: Appleworks, Logo... 
ecc. -I- serie completa di Applicando e numerosis¬ 
simi dischetti vergini, causa passaggio a sistema 
superiore. Maurizio Barberis, Via Villadeati 6, 
10135 Torino. Tel.011/6199287 ore pasti. 

• SVENDO causa passaggio sistema superiore 
Apple Uè + video professionale Philips 12" fo¬ 
sfori gialli + floppy-disk originale con control¬ 
ler (anch esso originale), il tutto perfettamente 
funzionante e in ottime condizioni. Accertata se¬ 
rietà, prezzo di vero realizzo, regalo scheda inter¬ 
faccia stampante e moltissimi volumi per solo 
Apple Ile, solo se interessati telefonare. Ignazio 
De Gregorio, Via Cofano 63 - 91100 Trapani. 
Tel.0963/20650 ore pranzo. 


OCCASIONE vendiamo Apple Ile, 
completo di borsa e mouse, a lire 
1.450.000, Macintosh 512K, com¬ 
pleto di software, a lire 3.500.000, 
più svariati accessori Apple e Apple 
compatibili a prezzi interessanti. 
Contattare SYMIC, Via delle Regio¬ 
ni 34, Segrate (Milano). Telefono 
02 2130450. 
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ImageWriter e caratteri alternativi 

Con un semplice programma è possibile creare un 
set di caratteri personali utilizzabili in alternativa ai 
caratteri standard, che rimangono sempre a disposizio¬ 
ne). Per costruire i caratteri alternativi occorre seguire 
la seguente procedura: 

1. Definire il carattere alternativo e il carattere 
standard che lo rappresenta; il carattere alternativo de¬ 
ve essere inserito in una matrice a 8 righe e 8 colon¬ 
ne al massimo con una procedura, oppure 16 colonne 
al massimo utilizzando una seconda procedura. 

I caratteri standard rappresentativi di quelli nuovi 
possono essere anche tutti quelli compresi tra i valori 
32 e 127 della tabella ASCII nel caso della procedura 
a 16 colonne (tutti i caratteri stampabili), oppure tra 
i valori 32 e 111 della tabella ASCII nel caso della 
procedura a 8 colonne (simboli, numeri, lettere maiu¬ 
scole e lettere minuscole fino alla -o-). 

2. Ricavare i caratteri decimali ai quali corrispon¬ 
de ogni colonna; a ogni punto vuoto (bianco) corri¬ 
sponde uno zero (0) e a ogni punto pieno (nero) cor¬ 
risponde un uno (1); si ricava così un valore binario, 
e da questo il relativo valore decimale corrispondente 
(figura a fondo pagina). 

3. Scrivere una routine che esegua le seguenti o- 
perazioni: 

Abilitare la stampante allHitilizzo degli 8 BIT (solo 
nel caso di matrici a 16 colonne). 

• Inviare alla stampante il carattere di controllo "ESC - 

" (escape meno) per la procedura con i caratteri fino 
a 8 colonne, o "ESC +" (escape più) per la procedura 
fino a 16 colonne. 

• Inserire i caratteri in forma DECIMALE nella for¬ 
ma ESC I (escape I) <lista>. Nella <lista> per ogni 
carattere inserito occorre mettere: 

- carattere standard rappresentativo del nuovo; 

- numero di colonne per quel carattere, rappresenta¬ 
to da una lettera maiuscola dell'alfabeto, dalla "A" al¬ 
la "P" (K e J comprese) corrispondenti ai numeri di 
colonne 1-16; 

- codice decimale di ogni colonna grafica. 

• Inviare il carattere "CTRL-D" alla stampante, come 
fine lista (EOT). 


Nelfinserire i caratteri di controllo e di definizione 
dei caratteri alternativi, occorre inviare i dati diretta- 
mente nella locazione di output dell’interfaccia seriale 
collegata alla stampante, tramite l'istruzione: 

POKE loc.output,val.numerico. 

Questo metodo si rende necessario in quanto i dati 
inviati con l’istruzione PRINT vengono considerati 
sempre con Tottavo bit a uno e quindi si perde¬ 
rebbe il valore dell'ottava riga. 

Eseguita la routine, il set di caratteri alternativo vie¬ 
ne attivato con il comando " ESC ' ", mentre con "E- 
SC $" si abilita la stampante per utilizzare il set dei 
caratteri standard.il procedimento è valido sia in am¬ 
biente DOS che ProDos. 

Questo breve listato dimostrativo è relativo al carat¬ 
tere della figura 1: 


10 

ESC$=CHR$(27): PRINT CHR$(4) "PR#!" 


15 

PRINT ESC$;"Z";CHR$(0);CHR$(32); : REM Abilita 


la stampante all'utilizzo di 8 BIT 


20 

FOR I = 1 TO 21 


30 

READ X 


40 

POKE49304,X: REM Locazione di OUTPUT per la 

SU 

PER SERIAL CARD nello SLOT 1 


50 

NEXT I S ' ' ' " ' 


60 

PRINT ESC$;" ' ": REM Selezione caratteri 

AL- 

TER 

NATIVI - 


65 

PRINT "W": REM Stampa CARATTERE ALTERNATIVO 

70 

PRINT ESC$; REM Selezione dei caratteri 


STANDARD 


75 

PRINT "W": REM Stampa CARATTERE STANDARD 


80 

REM Lista valori inviati alla stampante 

(ca- 

rat 

teri di controllo e dati sul font) 


90 

DATA 27, 43, 21, 73 


100 

DATA 87, 74, 0, 126, 36, 24, 36, 66, 66, 

36, 


24, 0 


110 

DATA 4, 27, 68, 0, 32 


120 

PRINT CHR$(4) "PR#0" 



Tutti i valori inviati alla stampante dopo l'abilita¬ 
zione all'utilizzo dell’ottavo BIT vengono mandati di¬ 
rettamente all'interfaccia tramite l’istruzione POKE 
49304,X perché tutti i dati devono essere di otto bit. 

I valori alla linea 90 sono "ESC + " ed "ESC I", ri¬ 
spettivamente "DEFINIZIONE CARATTERI AL¬ 
TERNATIVI 16 col." e " INIZIO LISTA". 

I valori alla linea 100 sono il carattere da sostituire 
(CHR$(87)=W), il numero di colonne da cui è compo¬ 
sto (CHR$(74)=J), e i valori decimali delle colonne. 

I valori alla linea 110, sono il carattere di "FINE 
LISTA", e i valori per abilitare la stampante a 7 bit. 



Colonna 

Val.Binario 

Val.Esadecimale 

Val. Dee. 

1 

00000000 

$00 

0 

2 

01111110 

$7E 

126 

3 

00100100 

$24 

36 

4 

00011000 

$18 

24 

5 

00100100 

$24 

36 

6 

01000010 

$42 

66 

7 

01000010 

$42 

66 

8 

00100100 

$24 

36 

9 

00011000 

$18 

24 

10 

00000000 

$00 

0 
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Listati senza fatica 


Tutti i programmi di Applicando possono essere trascritti e quindi salvati su 
dischetto. Ma la trascrizione è lenta e noiosa, e sbagliare fin troppo facile. Ecco 
perché Applicando offre, già pronti, i dischetti con i programmi autoguidati 
(cioè con le istruzioni), sia per Apple II, sia per Macintosh: per ottenerli, è 
sufficiente inviarci il tagliando (pubblicato nell'ultima pagina) debitamente 
compilato. Chi vuole risparmiare non perda la favolosa offerta dell' 
abbonamento al Disk Service e invii subito il tagliando di pagina 129. 


APPLICANDO 1 

AP1/I02 Profitti. In tempo reale l'anali¬ 
si del break-even point, punto di pareg¬ 
gio di un’azienda. Calendario perpe¬ 
tuo. Dal 1582 in poi tutto quello che si 
può sapere sui giorni passati e futuri. I 
tronchi del tesoro. Una spericolata 
caccia al tesoro a nuoto, tra le insidie 
di tronchi galleggianti. Lire 30.000. 

AP1/N03 Eliminatore di Dos. Uno 

strumento per aumentare del 10% la ca¬ 
pacità di un normale floppy disk. Orolo¬ 
gio. Per trasformare l'Apple II in un oro¬ 
logio con rintocchi, allarme e lancetta 
dei secondi. Pronti puntare fuoco! 
Guardiano di un castello abbandonato, 
hai 25 colpi da sparare contro gli intru¬ 
si. Lire 30.000. 


APPLICANDO 2 

AP2/IN04 Costi chilometrici auto. 

Un programma per calcolare e confron¬ 
tare i costi di qualunque auto. Richia- 
mafigure. Posizionare, ingrandire, 
ruotare, cambiare colore, aggiungere fi¬ 
gure a quelle di una tavola. Laser nel¬ 
lo spazio. Battaglia a colpi di laser 
contro asteroidi e alieni per difendere la 
torretta spaziale. Lire 30.000. 


APPLICANDO 3 

AP3/IN05 Sistema base. Un data ba¬ 
se modulare con tutte le caratteristiche 
essenziali per mettere ordine nei propri 
archivi. Etichette. Etichette spirito¬ 
se e bizzarre, di lavoro o di ogni gene¬ 
re, stampate facilmente e nel numero 
desiderato. Contratti. Con il WPL, il 
linguaggio di programmazione dell’Ap¬ 
ple Writer, bastano cinque minuti per 
un documento di più pagine personaliz¬ 
zato. Gran catalogo. Una routine 
per avere il catalogo del dischetto su 
due colonne, 42 file per volta, e ri¬ 
chiamarli con un solo tasto. Lire 
30.000. 

AP3/A06 Equo canone (occorre Visi- 
cale). In Visicalc un modello che per¬ 


mette, a inquilini e proprietari, l'esatto 
calcolo dell'equo canone. Lire 25.000. 


APPLICANDO 4 

AP4/N07 Lettura sprint (versione ita¬ 
liana e versione con frasi in inglese). 
Un reading improver per leggere di più a 
parità di tempo. Rompiquindici. Il pic¬ 
colo rompicapo delle quindici pedine da 
ordinare nei sedici spazi a disposizio¬ 
ne. Tastierino fantasma. Una routi¬ 
ne per avere a disposizione un tastieri¬ 
no numerico anche sull'Apple II. Routi¬ 
ne di input. Due subroutine, una per 
i dati numerici, l’altra per gli alfanumeri¬ 
ci, per il controllo dell'input. Lire 
30.000. 

AP4/A09 Organo, violino, piano¬ 
forte (dischetto Pascal, occorre lan- 
guage card o Apple Ile o Ile). Ecco co¬ 
me, col Pascal, si riesce a simulare i 
tre strumenti attivando l'altoparlante 
dell'Apple da programma. Lire 30.000 


APPLICANDO 5 

AP5/N08 Investor. In tempo reale il 
quadro esatto di come vanno i propri in¬ 
vestimenti finanziari. Con cinque pro¬ 
spetti riepilogativi e 52 periodi di quota¬ 
zione, Investor è uno dei programmi più 
completi in questo settore e in assoluto 
il più economico. Lire 70.000. 

AP5/N09 Agenda personale. Per ri¬ 
cordare ora per ora gli appuntamenti di 
un anno intero memorizzando fino a 15 
appunti ogni giorno. Duello d'arti¬ 
glieria. Vince chi sa calcolare meglio 
la velocità del vento, la gittate e l'eleva¬ 
zione della canna. Mele e freccet¬ 
te. Versione computerizzata del popo¬ 
lare gioco delle freccette che nulla to¬ 
glie al gusto del far centro. Lire 30.000. 


APPLICANDO 6 

AP6/N10 Obbligazioni/Bond Ma¬ 
nager. Per avere un quadro completo 
e concreto dei rendimenti dei titoli a red¬ 


dito fisso. PucMan/Nibbler. Versio¬ 
ne in alta risoluzione per Apple del fa¬ 
moso videogame a gettone. Line fin- 
der. Letteralmente trova righe; questa 
utility permette di localizzare facilmen¬ 
te i segmenti di un programma. Lire 
30.000. 

AP6/N11 Stress. In Pascal (occorre 
language card o Apple Ile o Ile). Per 
giocare, ma soprattutto per inventare 
giochi, il programmasi pone in alternati¬ 
va agli usuali videogame. Lire 55.000. 

APPLICANDO 7 

AP7/N12 Apple pittore. Si possono 
realizzare sullo schermo capolavori di 
pittura, ottenendo effetti speciali di 
grande efficacia. Ottovolante. Un tu- 
torial per insegnare ai bambini a ricono¬ 
scere i numeri che rimbalzano sullo 
schermo. Diskblock. Una routine che 
permette di evitare che qualche curio¬ 
so possa avere libero accesso in pro¬ 
grammi riservati. Archivio per Ap¬ 
ple. Per avere un back-up dei program¬ 
mi più importanti da dischetto a casset¬ 
ta o viceversa. Discoteca. Una ban¬ 
ca dati che tiene sotto controllo la colle¬ 
zione di LPe cassette. Aiuto. Alla fine 
della battitura di un programma, Aiuto 
vi dirà quanti errori ci sono e a quali li¬ 
nee. Lire 30.000. 

APPLICANDO 8 

AP8/N13 Cambiacomandi/Messag- 

gi. Un programma che insegna come 
personalizzare i messaggi propri del 
Dos dell'Apple. Le Mans. Un gran pre¬ 
mio di formula uno da giocare in due o 
da soli contro il computer. Appleorga- 
no. Ecco come trasformare Apple// in 
un melodioso organo. Lire 30.000. 

AP8/T14 Momento di una for- 
za/Colpo all'asta. La dimostrazio¬ 
ne didattica del ribaltamento di un cor¬ 
po solido appoggiato a un piano quan¬ 
do viene applicatala forza orizzonta¬ 
le che supera il momento in senso oppo¬ 
sto dovuto al peso. Hard copy pagi¬ 
ne in alta risoluzione. Se la stam- 
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pante è compatibile con questo pro¬ 
gramma si possono far miracoli. Lire 
30.000. 


APPLICANDO 9 

AP9/N15 Fuoco fatuo. Un appassio¬ 
nante adventure game con un percorso 
intricatissimo, mille trabocchetti, un 
troll e una principessa. Apple arti¬ 
sta. Per destreggiarsi nella grafica ad 
alta risoluzione usando lo schermo co¬ 
me tavolozza e la tastiera come pennel¬ 
lo. Data hello. Una semplice routine 
che permette di disporre di una clock 
card inizializzando i dischetti con gior¬ 
no, mese e anno. Lire 25.000. 

AP9/T16 Sistema di forze paralle¬ 
le. Fissandone l'intensità e la posizio¬ 
ne, questo programma permette di vi¬ 
sualizzare il centro di un sistema di for¬ 
ze sotto forma numerica e grafica. Tra¬ 
slazione e rotazione di una figu¬ 
ra piana. Come far ruotare, traslare, 
rimpicciolire, ingrandire sul video una fi¬ 
gura piana. Lire 30.000. 

applicando io 

AP10/N14 Ripristino. Come ripristi¬ 
nare programmi persi per un'accidenta¬ 
le istruzione di New o di Fp. Disk 
Map. Un detective del Dos per scopri¬ 
re dove e come vengono immagazzina¬ 
ti i dati analizzando la mappa dei bit oc¬ 
cupati. Autonumber. Una routine per 
autonumerare automaticamente i pro¬ 
grammi. Lire 30.000. 

AP10/T17 Rette nel piano carte¬ 
siano. Come individuare in cinque mo¬ 
di diversi una coppia di rette in un piano 
cartesiano e avere visualizzate le e- 
quazioni relative ai piani assegnati. 
Statistica. Come analizzare la corre¬ 
lazione tra due fenomeni mediante 
l'indice di Bravais. Lire 30.000. 

APPLICANDO 11 

AP11/N18 Apple edicola. Una ban¬ 
ca dati per avere sotto controllo un arti¬ 
colo, il suo numero di pagina, la rivista 
su cui è stato pubblicato. Disk Zap. Il 
programma indispensabile per il debug¬ 
ging. Messaggi personali. Quando 
la persona non c'è basta lasciarle un 
messaggio in Apple//. Comparatore 
di programmi. Per risolvere dubbi sul¬ 
le diverse versioni dello stesso pro¬ 
gramma in basic. Trappola per po¬ 
chi. Un cacciatore contro tre animali fe¬ 
roci. Vince chi riesce a intrappolare 
senza essere intrappolato. Lire 
30.000. 

AP11/T19 Espressioni. Come risol¬ 
vere un piccolo dramma familiare con 
l'aiuto di un elaboratore personale. Lire 
25.000. 

APPLICANDO 12-13 

API 2/N20 Bridge. Un programma in 
altissima risoluzione grafica che per¬ 
mette di imparare il bridge o di giocarlo 
contro il computer. Microcalc. Un fo¬ 


glio elettronico di calcolo che mette a di¬ 
sposizione 20 righe per 20 colonne, per 
un totale di 400 caselle da riempire co¬ 
me si vuole. Applesoft Line Edi¬ 
tor. Una potente utility che permette 
l'editing dei programmi in Applesoft e 
aggiunge all’Apple un più ampio control¬ 
lo oel cursore. Lire 30.000. 


Bridge AP12/N20 

Per imparare a giocare 
a bridge o per esercitarsi 
giocando contro il computer 


AP12/A21 Budget (occorre Applewor- 
ks). Un prospetto che con l'inserimento 
di dati mensili e di medie preventive cal¬ 
cola automaticamente le medie consul¬ 
tive e i relativi saldi mensili e annui. Lire 
20 . 000 . 

AP12/A22 Budget (occorre Visicalc). 
Un prospetto che con l'inserimento di 
dati mensili e di medie preventive calco¬ 
la automaticamente le medie consunti¬ 
ve e i relativi saldi mensili e annui. Lire 
20 . 000 . 

AP12/T25 Animazione di una rota¬ 
zione tridimensionale. Un esem¬ 
pio di come una rotazione tridimensio¬ 
nale permette di rappresentare gli og¬ 
getti proprio come li vediamo. Trasfor¬ 
mazione da File a Data. Una utility 
per risolvere il problema di aggiungere 
a un programma preesistente delle i- 
struzioni DATA ricavate da un altro file. 
Lire 25.000. 

APPLICANDO 14 

AP14/N26 Golf. Un programma in altis¬ 
sima risoluzione grafica che permette 
di disegnare il proprio percorso di golf 
per poi giocarci a piacimento. Auto¬ 
più. Per non dimenticare più gli appun¬ 
tamenti fissi dedicati alla manutenzio¬ 
ne della vostra automobile. Lire 
20 . 000 . 

AP14/N27 Applebaby. Tre giochi di¬ 
dattici: imparare a contare in età pre¬ 
scolastica, ripassare le tabelline, eser¬ 
citarsi nell'ortografia. Lire 25.000. 

AP14/A28 Rimborso spese (occorre 
Appleworks). Un prospetto che permet¬ 
te di preparare le vostre note spese au¬ 
tomaticamente. Lire 20.000. 

AP14/A29 Rimborso spese (occorre 
Visicalc). Un prospetto che permette di 
preparare le vostre note spese automa¬ 
ticamente. Lire 20.000. 

AP14/T30 Frutteti. Un aiuto a risolve¬ 
re uno dei più classici problemi di esti¬ 
mo. Instant Poster. Scrivete la fra¬ 
se che volete, e subito dalla stampante 
esce un poster gigante. Lire 20.000. 

APPLICANDO 15 

AP15/N31 Sintetizzatore di suo¬ 


ni. Dotate i vostri lavori di una colonna 
sonora eccezionale: dal canto dell'uc¬ 
cellino alla mitragliatrice, dal treno in 
corsa all'aereo. Volano. Un gioco in al¬ 
ta risoluzione per due sfidanti. Illu¬ 
stratore. Un programma di grafica 
che offre la possibilità di realizzare otti¬ 
mi disegni anche a chi non è molto 
dotato. Autoschermo. Crea in auto¬ 
matico menù altamente professionali 
(come quelli di Appleworks) da inserire 
nei vostri programmi. Lire 30.000. 

AP15/A32 Computer cuisine. Un ri¬ 
cettario computerizzato sul quale me¬ 
morizzare ingredienti e ricette a centi¬ 
naia. Con possibilità di stampa delle sin¬ 
gole ricette e con un menù completo 
dei migliori piatti creati da Gualtiero Mar¬ 
chesi, il più famoso cuoco d'Italia. Oc¬ 
corre scheda 80 colonne. Lire 20.000. 

AP15/T33 Euclide. Il massimo comu¬ 
ne divisore e il minimo comune multiplo 
in un programma che ne permette l'im¬ 
mediata comprensione. Isomeri. Fa 
parte del più ampio progetto americano 
Seraphim, per lo studio della chimica. 
Lire 20.000. 


APPLICANDO 16 

AP16/N34 Dieta personalizzata. 

Un pratico sistema di data base nutri¬ 
zionale, con il quale è possibile perso¬ 
nalizzare, a seconda della propria costi¬ 
tuzione fisica e delle abitudini alimenta¬ 
ri, una dieta bilanciata, a lungo o a bre¬ 
ve termine. Il dischetto contiene un file 
dati di 400 cibi, la cui composizione è a- 
nalizzata in calorie, proteine, grassi, vi¬ 
tamine e colesterolo. Lire 30.000. 

AP16/N35 Designer. Il concetto dei 
potenti e costosi programmi di 
CAD/CAM alla portata dell'Apple//, per 
fare del computer uno strumento semi¬ 
professionale per disegnare. Il gioco 
dei pompieri. E' scoppiato un incen¬ 
dio, e voi siete un pompiere che deve 
salvare il maggior numero di persone 
prima che muoiano soffocate tra le fiam¬ 
me. Per listare bene in vista. Se 
nel programmare avete preferito la com¬ 
pattezza alla chiarezza, avete bisogno 
di questo programma. Timer. Un fede¬ 
le e preciso contasecondi che avverte 
del passare del tempo, e al momento 
giusto... Lire 30.000. 

AP16/N36 Cento One-liner. Utili¬ 
ties, routines, dimostrativi di grafica e 
di suoni, e perfino giochi. Cento pro¬ 
grammi su un solo dischetto, tutti rigo¬ 
rosamente scritti in una sola linea di Ba¬ 
sic. Da usare cosi come sono, da stu¬ 
diare come esempi di sintesi, o da tra¬ 
sferire nei vostri programmi. Lire 
30.000. 

AP16/N37 Rubrica telefonica (oc¬ 
corre Appleworks). Un’agenda telefoni¬ 
ca che individua in tempo reale qualun¬ 
que numero memorizzato, che stampa 
le etichette per spedire gli auguri, e 
stampa elenchi su carta da distribuire 
aggiornati ogni mese ai collaboratori. Li¬ 
re 15.000. 
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APPLICANDO 17 

AP17/N38 Strade d'America. Pianifi¬ 
ca un qualunque itinerario stradale ame¬ 
ricano tra ben 171 città diverse, fornen¬ 
do le sigle delle strade da percorrere, 
l'elenco delle città intermedie e i calcoli 
della distanza in miglia dei tratti interme¬ 
di e totali. Uragano. Su una piccola cit¬ 
tà indifesa una tempesta si abbatte im¬ 
placabile: distruggerà tutto. A meno 
che... Gioco ad altissima risoluzione 
grafica. Lire 30.000. 


Dieta AP16/N34 

Un pratico sistema di 
data base nutrizionale 
con il quale avrete la 
possibilità di personalizzare 
una dieta bilanciata 


AP17/N39 Regress. Ideale per mani¬ 
polare dati con funzioni statistiche, 
con la possibilità di chiedere previsioni 
in base all'andamento della regressio¬ 
ne sui dati inseriti. Calcolatrice 
RPN. Con questo programma l'Apple 
diventa una sofisticata calcolatrice 
che impiega per l'input la notazione po¬ 
lacca inversa, con una catasta operati¬ 
va di quattro registri. Sparate a vi¬ 
sta. Siete appostati contro un muro e 
comandate un potente cannone. Dal 
cielo fluttuano oggetti che dovete 
colpire. Ma un avversario con un altro 
cannone... Lire 30.000. 

AP17/A40 I conti del negozio (oc¬ 
corre Appleworks). Questo modello di 
spreadsheet è utilissimo per seguire 
l'andamento giornaliero e mensile di un 
negozio. Per ogni movimento di cassa 
è possibile memorizzare causale e tipo 
di pagamento. Il computer calcola i tota¬ 
li per ogni voce e indica qual è stato il 
movimento di cassa della giornata, te¬ 
nendo conto degli ordini e dei saldi per 
impegni precedenti, elabora i dati suddi¬ 
visi per categoria merceologiche e cal¬ 
cola le percentuali di ripartizione degli u- 
tili su ogni articolo. Lire 50.000. 

AP17/A41 I conti del negozio (oc¬ 
corre Visicalc). Come AP17/A40, ma 
con Visicalc. Lire 50.000. 


APPLICANDO 18 

AP18/N41 Trivia. Una versione per Ap¬ 
ple II, del gioco Trivial Pursuit, però per¬ 
sonalizzabile e quindi utile anche per 
studiare o ripassare. Bioritmi. Con 
questo programma si può seguire l'an¬ 
damento dei propri bioritmi: tutti e tre i 
cicli, mese per mese. Occhio ai con¬ 
sumi. Invece di annotare diligentemen¬ 
te la percorrenza in chilometri e i litri di 
carburante consumato e poi fare i relati¬ 
vi calcoli... Lire 30.000. 

AP18/N42 Regolatore del bip. Un 


programma per regolare a piacimento il 
volume del beep dell'Apple Ile. Compa¬ 
ratore di grafici. Ecco come 
comparare le curve disegnate da 
funzioni diverse. Impaginatore di 
messaggi. Scritte perfettamente cen¬ 
trate sia sul video che sulla stampante, 
senza fatica. Utility per Pro DOS. 
Prefix, Subdirectory, Pathname? Sono 
termini che bisogna conoscere per pro¬ 
grammare in ProDOS. Questa utility aiu¬ 
terà a capire e imparare con facilità. Li¬ 
re 30.000. 


APPLICANDO 19 

AP19/N43 Oracolo. Comperare una 
casa? Cambiare lavoro? Concludere o 
no quell'affare? Il primo programma di ti¬ 
po decision maker disponibile in Italia. 
Digger. A differenza dei giochi di labi¬ 
rinto di tipo tradizionale, Digger chiede 
di risolvere dei rompicapo spaziali, e la 
prontezza di riflessi non è tra i fattori 
del gioco... Claustrofobia. Questo 
gioco in alta risoluzione, pacifista nei ri¬ 
sultati, ma non nei metodi, mette alla 
prova l'abilità del giocatore. Ma atten¬ 
zione che non vi incastrino, perché sof¬ 
frite di claustrofobia... Gestione 
puntatori. Volete caricare in memoria 
un programma in Applesoft al di sopra 
di questo o quel codice in linguaggio 
macchina? Magari aggirando la memo¬ 
ria di schermo in alta risoluzione? O ad¬ 
dirittura in cima a un codice ormai servi¬ 
to al suo scopo in un programma che 
sta girando? Ò annullare un FP battuto 
pererrore? Con questo programma, tut¬ 
to è possibile. Grafica in doppia ri¬ 
soluzione. Tre routine in Basic e una 
in Assembler che vi permetteranno di 
creare prorammi in doppiaalta risoluzio¬ 
ne con 16 colori. Sei soluzioni. Il pro¬ 
gramma, proposto nell'ambito del Pro¬ 
getto Seraphim, è un test che consiste 
nel presentare allo studente quantità li¬ 
mitate di un certo numero di soluzioni in 
provette numerate. Lo studente cono¬ 
sce le sostanze presenti e deve, usan¬ 
do esclusivamente le soluzioni a dispo¬ 
sizione, identificare il contenuto di cia¬ 
scuna provetta. Lire 30.000. 


APPLICANDO 20 


AP20/N44 Salute. Vaccinazioni, ma¬ 
lattie, analisi, terapie e soprattutto co¬ 
sti a non finire. Come ricordare tutto, re¬ 
gistrare e listare le spese mediche di 
tutti i familiari? E al momento di pagare 
le tasse... Variabili. Con questa utility 
in Applesoft potrete visualizzare i 
valori delle variabili per un'efficace 
individuazione degli errori di un 
programma. Grafica. Che cosa sono 
le figure a blocco? Perché è importante 
farne la conoscenza? Per chi possiede 
l'Apple Ilo o il Ile con scheda 80 colon¬ 
ne continua l'entusiasmante viaggio 
nel mondo dell'altissima risoluzione. Si¬ 
mulazione di un equilibrio. Un so¬ 
ftware didattico del progetto Seraphim 
che crea la simulazione al computer di 
un problema di equilibrio. Lire 30.000. 


AP20/N45 Oroscopo. Scientificamen¬ 
te fondato, permette la creazione di u- 
na carta del cielo natale che nulla invi¬ 
dia ai grafici tracciati dai professionisti. 
E le tabelle con latitudini, longitudini, fu¬ 
si orari eccetera? Ci sono, ci sono... 
Voce. Ora non gli manca più la parola: 
con questa routine in linguaggio mac¬ 
china Apple//può finalmente pronuncia¬ 
re tutto quello che volete. L.30.000. 


APPLICANDO 21 

AP21/N46 Architetto. Un programma 
per studiare sul video la disposizione di 
mobili, porte, finestre e muri, spostan¬ 
doli a piacere, modificandone le dimen¬ 
sioni, duplicandoli, facendoli ruotare.. 
E poi, naturalmente, stampando il tut¬ 
to. Autocorsa. A tutta birra lungo una 
pista con vere e proprie voragini e mas¬ 
si da schivare. A ogni videata cambia 
la difficoltà del percorso, e la sosta ai 
box riserva qualche interessante sor¬ 
presa. By-pass per il dump. Una 
scorciatoia per accedere alla routine di 
stampa, e solo a quella, senza bisogno 
di attraversare prima tutto il program¬ 
ma: basta by-passarlo! Cursore. Per 
lo spostamento del cursore Apple// u- 
sa gli ingombranti comandi HTAB e 
VTAB; è invece possibile utilizzare spe¬ 
ciali caratteri di controllo nelle stringhe 
stampate, grazie a questo programma 
in codice macchina. Grafica. Un altro 
passo avanti verso la perfetta padro¬ 
nanza della grafica in altissima risolu¬ 
zione: come animare sullo schermo le fi¬ 
gure a blocchi e come dare l'impressio¬ 
ne che scorrano dietro un altro ogget¬ 
to. Curve di titolazione. Interessa 
gli studenti (e gli insegnanti) di chimica 
questo programma del Progetto Sera¬ 
phim: inserite le debite variabili, e asse¬ 
gnato il nome all'acido che si sta stu¬ 
diando, traccia sul piano cartesiano la 
relativa curva di titolazione. Lire 
30.000. 


APPLICANDO 22 

AP22/N47 Impegni. Polizze che sca¬ 
dono, appuntamenti, anniversari e com¬ 
pleanni. Per avere sempre sotto gli oc¬ 
chi un promemoria elettronico, ecco un 
calendario intelligente. Azzardo. Il 
computer diventa mazziere di Blackja- 
ck, in una simulazione che ricalca fedel¬ 
mente il funzionamento delle slot machi¬ 
ne di Las Vegas. Effetti speciali. 
L'importanza di una gradevole presen¬ 
tazione non va sottovalutata, quando 
si realizza un programma. Consente lo 
scorrimento orizzontale di una stringa, 
alla velocità voluta, per vivacizzare un 
menù, un titolo, oppure... Calenda¬ 
rio. Ecco un calendario perpetuo, per¬ 
fetto, veloce e sempre pronto. Grafi¬ 
ca. Creare intere immagini e figure a 
blocco sullo schermo Hi-Res, e poi ani¬ 
marle. Chimica. Il famoso numero di 
Avogadro e il concetto quantitativo di 
mole: la visualizzazione aiuta a spiegar¬ 
li e ad apprenderli meglio. Lire 30.000. 
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APPLICANDO 23 

AP23/N48 Obelisk. Un game spazia¬ 
le, alla caccia di obelischi da distrugge¬ 
re, con singoli colpi o con una mega¬ 
esplosione. Programmare l'Apple- 
mouse. Come programmare suH’Àpple 
in modo da utilizzare il mouse? In Apple¬ 
soft o in Assembler, ecco un aiuto pre¬ 
zioso per la programmazione e l'utilizzo 
dell'Applemouse. Più che diapositi¬ 
ve. Per realizzare presentazioni con il 
computer che siano qualcosa di più di 
un continuo scorrere di diapositive: l'ef¬ 
fetto "solid state”! Grafica. Program¬ 
ma dedicato alla doppia alta risoluzio¬ 
ne: scorrimento orizzontale di scritte e 
figure. Lire 30.000. 

AP23/A49 Trasferimento da Apple 
a Mac. Un programma eccezionale e 
nuovissimo: trasferire testi dall'Apple 
Ile e Ile al Macintosh è ora possibile e, 
quel che più conta, semplice e ultrasi¬ 
curo. La confezione comprende un 
dischetto da 3 pollici e mezzo e uno da 
5 pollici e un quarto. Lire 50.000. 

AP23/N50 Grafici 3D. Un programma 
che consente la realizzazione di grafici 
a tre dimensioni senza linee nascoste. 
Quale elemento? Un trivia di chimi¬ 
ca, per ripassare giocando i nomi e le 
caratteristiche di tutti gli elementi della 
tavola chimica. Le domande le fa lo stu¬ 
dente, e dalle risposte del computer de¬ 
ve ricavare la soluzione finale. Lire 
20 . 000 . 


APPLICANDO 24 

AP24/N51 Executive Card File. 

Uno schedario eccezionale per Apple 
//. E' strutturato in modo che le schede 
possano essere riposte in dieci racco¬ 
glitori: un' infinità di dati con la 
massima velocità di reperimento. 
Apple Maestro. Tutti compositori, 
con questo programma che insegna a 
creare musica in modo professionale, 
ma non per questo inaccessibile ai 
profani. Lire 35.000. 

AP24/N52 Dump 80 colonne. Un 
programma per ottenere la stampa 
della pagina schermo a ottanta 
colonne: proprio quello che finora non 
avreste potuto chiedere al vostro 
Apple. Date and time. Senza più 
dover ricorrere a costose schede 
aggiuntive, potete inserire nel vostro 
computer un calendario e, soprattutto, 
un orologio. Grafica. Con l'aggiunta 
delle routine per lo scorrimento 
verticale il mondo della grafica in 
doppia alta risoluzione non ha più 
difficoltà né segreti. Lire 30.000. 

AP24/N53 Prospettiva 3D. Questo 
programma è il seguito naturale di 
quello contenuto nel disco AP23/N50: 
come disegnare intere prospettive 
urbane, senza che il computer mostri i 
lati e le facce che devono rimanere 
nascosti. Test scolastici. Come 
crearsi un trivia "aperto", cioè non 
confinato a una sola materia e aperto a 


ogni intervento. Un modo nuovo e intel¬ 
ligente per ripassare (o giocare) inter¬ 
rogandosi. Lire 20.000. 

AP24/A55 Utility Dos 3.3. Questo 
dischetto consente a tutti coloro che 
hanno acquistato un Apple// dopo il 
maggio 1984 di avere a disposizione il 
sistema operativo Dos 3.3 indispen¬ 
sabile per ricopiare alcuni programmi 
presentati da Applicando. Insieme al 
sistema operativo vengono fornite 
quattro interessanti utility per la 
gestione dei file Dos. Il dischetto 
contiene tutte le informazioni 
necessarie. Lire 25.000. 


APPLICANDO 25 

AP25/N56 Chart Manager. Un pro¬ 
gramma professionale per la gestione 
dei dati, aziendali o familiari: ordina, cal¬ 
cola, modifica e poi traccia il grafico 
prescelto, a curve, a barre o a torta. In 
ogni sua fase consente il dump grafico 
dello schermo. Grafica. Quale logica 
è preposta all'alta risoluzione nell'Ap¬ 
ple? Queste routine in linguaggio mac¬ 
china consentono un buon approccio al 
problema attraverso la gestione delle fi¬ 
gure a blocchi. Lire 35.000. 

AP25/N57 Apple Checker. Un vero 
amico per chi copia da sé i programmi: 
controlla se sono stati commessi errori 
di battitura. Buffer di stampa. Spoo- 
ler è un programma che utilizza la sche¬ 
da language card nell'Apple 64 per "par¬ 
cheggiare" i dati; così mentre stampate 
potete continuare a lavorare sullo 
schermo del computer. Cinetica. Un 
interessante esperimento di laborato¬ 
rio: analizzate la variazione di velocità 
in funzione delle concentrazioni dei 
reattivi e della temperatura. L. 35.000. 


Utility DOS 3.3 
AP24/A55 

Il sistema operativo ormai non 
più fornito dalla Apple, 
indispensabile per copiare alcuni 
programmi di Applicando. 
Nello stesso dischetto sono 
comprese 4 utility 
per la gestione dei file DOS. 


APPLICANDO 26 

AP26/N59 Ants. Un gioco ai confini del¬ 
la realtà, terrificante e divertente: gi¬ 
gantesche, spuntano dal vostro giardi¬ 
no delle omicide formiche mutanti. File 
name mover. All'inizio l'Hello sta 
scritto al primo posto nel Catalog, ma 
poi si sposta... Per fare un po' di ordine 
nei nomi dei file questa utility è indi¬ 
spensabile. Sistemi di equazioni li¬ 
neari. Molti sono quasi impossibili da 


risolvere senza computer, per la loro in¬ 
terminabile complessità. Questo pro¬ 
gramma può affrontare fino a 70 equa¬ 
zioni, con fino a 70 variabili. E 
naturalmente stamparle. Lire 35.000. 
AP26/A60 Irpef (occorre VisiCalc). Il 
tempo delle tasse, oltre ai noti dolori, 
comporta perdite di tempo e disguidi: 
per compilare più in fretta la dichiarazio¬ 
ne, e tenersi aggiornati con le aliquote 
in corso, questo modello sfrutta la po¬ 
tenza del foglio elettronico. Lire 
25.000. 

AP26/A61 Irpef (occorre Apple- 
Works). Lo stesso del precedente, ma 
in versione AppleWorks. Lire 25.000. 

— 
Il dominio di 
Mean dr o-AP26/A65 

Un adventure game tutto italiano 
migliore perfino, dei più 
famosi adventure d'importazione. 
Alla ricerca del grande segreto, 
nascosto oltre lo specchio 
e dentro la fantasia. 


AP26/N64 Certificatore di dischet¬ 
ti. Aprire una seconda tacca nel di¬ 
schetto per sfruttare anche la memoria 
della faccia posteriore? Con questo pro¬ 
gramma lo si può fare senza timori: con¬ 
trolla tutte le tracce e segna come già u- 
tilizzati i settori eventualmente difetto¬ 
si. Grafica. L'animazione di figure a 
blocchi si può gestire in più modi; ecco 
alcune routine chiave, interdipendenti. 
Lire 25.000. 

AP26/A65 II dominio di Meandro. 

Finalmente un adventure tutto italiano, 
che però non ha nulla da invidiare ai 
professionali d'importazione. Alla ricer¬ 
ca del Grande Segreto, nascosto oltre 
lo specchio e dentro la fantasia. Lire 
35.000. 


APPLICANDO 27 

AP27/N66 Chitarra. Un maestro ti in¬ 
segna gli accordi, mostrando sul video 
in bassa risoluzione chiarissime istru¬ 
zioni grafiche per la diteggiatura; una 
speciale routine, poi, controlla gli errori 
commessi. Crono. Relegato nel Tarta¬ 
ro all'inizio dei tempi da Zeus, Crono ne 
emerge oggi e sferra un attacco morta¬ 
le per il potere universale... Armati del 
fulmine divino, dovete sconfiggerlo. Li¬ 
re 35.000. 

AP27/N67 Reminder. Per tenere sot¬ 
to controllo la gestione domestica, ec¬ 
co un programma multiforme: è un ge¬ 
store prestiti, un custode delle scorte 
freeezer, un programmatore per l'orto, 
un’agenda delle incombenze e dei lavo¬ 
ri... Grafica. Tutte le immagini grafi¬ 
che, provenienti da qualsiasi program¬ 
ma, possono divenire tavole di figure a 
blocco. Con questo programma, poi, 
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non occorre nemmeno conoscerne le 
coordinate. Postmaster. Può estire 
cento indirizzi, ordinarli in ordine alfabe¬ 
tico e modificarli quando serve, ma so¬ 
prattutto è un formidabile stampaeti- 
chette, per ogni stampante. Apple- 
trig. Seno e coseno, tangente e cotan¬ 
gente, secante e cosecante: tutte le 
funzioni trigonometriche a portata di 
mano. Lire 35.000. 


APPLICANDO 28 

AP28/N74 Supershopper. Un pro¬ 
gramma versatile e intelligente che pia¬ 
nifica gli acquisti per una gestione otti¬ 
male, senza sprechi né amare sorpre¬ 
se, del frigorifero e delle scorte free¬ 
zer. Planetario. La volta celeste sul¬ 
lo schermo, con i movimenti e le magni¬ 
tudini delle stelle, in una perfetta simu¬ 
lazione: basta impostare l'ora e le coor¬ 
dinate del luogo da cui si vuole osserva¬ 
re la notte. Lire 35.000. 

AP28/N75 Millenote. Una routine per 
la creazione di musica, completa di 
staccato, corone, ritardi e pause, per 
personalizzare giochi e programmi con 
simpatici effetti sonori. Scatola ne¬ 
ra. Un classico gioco di deduzione nel¬ 
l'era atomica: dal grado di riflessione 
del raggio lanciato dentro la scatola bi¬ 
sogna indovinare le posizioni degli ato¬ 
mi contenuti. Text file. Ottima routine 
per la gestione dei listati come file di te¬ 
sto; rende più veloci e agevoli le corre¬ 
zioni. Grafica. L'animazione delle figu¬ 
re a blocco con effetti speciali. Lire 
35.000. 

AP28/A76 Gin. E' il gioco del momen¬ 
to, e ha un solo difetto: calcolare il pun¬ 
teggio è laboriosissimo. Nessun proble¬ 
ma, però, se si usa questo programma 
contapunti. Lire 20.000. 


PROGRAMMI PER 
MACINTOSH 


AP23/A49 Trasferimento da Apple 
a Mac. Un programma eccezionale e 
nuovissimo: trasferire testi dall'Apple 
//e e Ho al Macintosh è ora possibile e, 
quel che più conta, semplice e ultrasi¬ 
curo. La confezione comprende un 
dischetto da 3 pollici e mezzo e uno da 
5 pollici e un quarto. Lire 50.000. 

AP24/N54 MacGraph. Un programma 
favoloso per un uso professionale del 
Macintosh: può creare ogni tipo di gra¬ 
fico, a linee, a barre o a torta, che poi si 
può copiare e incollare in aualunque 
altro documento (relazioni, documenti 
da proiettare...). Lire 40.000. 

AP25/N58 File Cabinet. Potenza e 
versatilità caratterizzano il database 
per Macintosh: strutturato come uno 
schedario, permette un'archiviazione e 
una gestione dati molto agile e intelli¬ 
gente. I criteri di classificazione, multi- 


per i nostri 
lettori 



Abbonamento 
DISK SERVICE 




Applicando è lieto di offrire ai propri lettori la 
possibilità di sottoscrivere un abbonamento 
a 5 o 10 dischetti, a scelta fra quelli presentati nel 
Disk Service, a un prezzo super vantaggioso: 


120.000 lire per 5 dischetti Apple II 
200.000 lire per 10 dischetti Apple II 
175.000 lire per 5 dischetti Macintosh 
300.000 lire per 10 dischetti Macintosh 

Pagherete, rispettivamente, 24.000, 20.000, 35.000 
o 30.000 lire a dischetto, Iva e spese di spedizione 
comprese 

qualunque sia il prezzo di vendita 
del singolo dischetto. 

Basta che compiliate il tagliando qui sotto e lo 
inviate ad Applicando, abbonamenti Disk Service, 
Corso Monforte 39, 20122 Milano, unitamente a un 
assegno non trasferibile intestato a Editronica srl 
e al vostro primo ordine. 

Per ordinare i dischetti, adesso e in seguito 
utilizzate il buono d'ordine pubblicato alle pagine 
seguenti, specificando sempre che siete un 
abbonato del Disk Service. L'abbonamento non ha 
scadenza, quindi i 5 o 10 dischetti potete ordinarli 
quando più vi aggrada. 



Sì, desidero sottoscrivere il seguente 
abbonamento al Disk Service: 

□ 5 dischetti con programmi Apple II, per 120.000 lire 
CU 10 dischetti con programmi Apple II, per 200.000 lire 

□ 5 dischetti con programmi Macintosh, per 175.000 lire 
di 10 dischetti con programmi Macintosh, per 300.000 lire 

Nome_ 

Cognome_ 

Indirizzo- 

Cap_ Città-PV_ 


Data 


Firma 
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segue: Programmi per Macintosh 


pii, consentono la massima personaliz¬ 
zazione. Lire 40.000. 

AP26/A62 Bioritmi. Un programma 
brioso, ma professionale neH'imposta- 
zione e nella grafica. Allietato dal dise¬ 
gno dei simboli zodiacali, traccia te tre 
famose curve fisico-emotivo-intelletti- 
ve mese per mese, fa i confronti e dà il 
consiglio del giorno. Lire 40.000. 

AP26/A63 Irpef (occorre Multiplan). Il 
tempo delle tasse, oltre ai noti dolori, 
comporta perdite di tempo e disguidi: 
per compilare più in fretta la dichiarazio¬ 
ne, e tenersi aggiornati con le aliquote 
in corso, questo modello sfrutta la po¬ 
tenza del foglio elettronico. Lire 
25.000. 

AP27/A68 Leasing (occorre Multi¬ 
plan). Conti alla mano, qual è il tasso 
reale che vi tocca pagare? La conve¬ 
nienza di ogni contratto di leasing con¬ 
teggiata su misura grazie a una applica¬ 
zione di matematica finanziaria sofisti¬ 
cata, ma semplice da usare. Lire 
30.000. 

AP27/N69 MacBanker. Un program¬ 
ma realmente all'avanguardia, che con¬ 
sente la stampa degli assegni su modu¬ 
lo continuo. Ma non solo: tutta la ge¬ 
stione del vostro conto in banca, con 
verifica puntuale degli estratti conto 
che vi vengono inviati, con registrazio¬ 
ne accurata di ogni vostro versamento 
e di ogni assegno che emettete, è affi¬ 
data a MacBanker. Lire 40.000. 

AP28/N77. Cronometro. Un prezioso 
accessorio da aggiungere alla scriva¬ 
nia del Macintosh: tiene conto dei ses¬ 
santesimi di secondo e stampa i nomi 
dei parziali. Radion Tyrant. Un avvin¬ 
cente gioco di strategia nella reggia del 
tiranno, alla ricerca delle sue guardie. 
Con griglia di gioco e griglia di controllo. 
Lire 40.000. 

AP28/A78 Gin. E' il gioco del momen¬ 
to, e ha un solo difetto: calcolare il pun¬ 
teggio è laboriosissimo. Nessun proble¬ 
ma, però, se si usa questo programma 
contapunti. Lire 25.000. 


Applicazioni Omnis3 pronte per l'uso 

Applicando mette a disposizione dei lettori una serie di applicazioni già 
pronte, preparate con OMNIS3, che toccano i più svariati campi. Saranno 
tutte offerte a basso prezzo, e funzioneranno con il RUNTIME di Omnis3, 
che acquistato una volta può essere poi usato anche con più di una appli¬ 
cazione. Ovviamente chi possiede il programma Omnis3 potrà fare a me¬ 
no di acquistare il RUNTIME, che può essere richiesto ai migliori compu¬ 
ter shop o direttamente a Editronica insieme alle applicazioni, utilizzan¬ 
do il tagliando del Disk Service. 

Queste applicazioni e il RUNTIME non possono essere or¬ 
dinati usufruendo dell'abbonamento al Disk Service. 

FATTURAZIONE E MAGAZZINO - AP27/A70 

Questa applicazione è stata approntata per chi ha l'esigenza di dover 
stampare molte fatture e magari ripetitivamente, andando a pescare i dati 
da un magazzino per quanto riguarda gli oggetti o le prestazioni vendute, 
e da un archivio clienti per ottenere in automatico i dati anagrafici di que- 
st'ultimi. La procedura permette la personalizzazione della stampa delle 
fatture. Funziona sia su Macintosh 512K sia con Macintosh Plus, con 
doppio drive e stampante ImageWriter. Lire 272.500 Iva 9% e 
spese di spedizione comprese. 

PREVENTIVAZIONE - AP27/A71 

Questa applicazione è stata studiata per chi ha l'esigenza di una gestio¬ 
ne del magazzino molto ampia e complessa. Infatti si possono gestire 
procedure come il carico e lo scarico automatico dal magazzino, il con¬ 
trollo delle merci a stock, l'inventario di magazzino con la relativa movi¬ 
mentazione, le chiusure periodiche e annuali di tali movimenti, la gestio¬ 
ne dell'elenco Clienti e Fornitori, e la gestione di preventivi e di com¬ 
messe di vendita o acquisto. E' una procedura molto complessa ma nello 
stesso tempo estremamente facile da usare grazie anche a una serie di indi¬ 
cazioni a video che permettono un uso guidato dell'applicazione; sicura¬ 
mente si rivela un valido strumento nella gestione di un magazzino anche 
molto complesso, estremamente valido e professionale. Può funzionare 
sia con il Macintosh da 512K che con il Plus, con ImageWriter, ma si 
consiglia l'uso di un Hard-Disk o di drive da 800K per la registrazione dei 
dati. Lire 272.500 Iva 9% e spese di spedizione comprese. 

GESTIONE APPUNTAMENTI - AP27/A72 

Per automatizzare e gestire in maniera efficace gli impegni lavorativi 
nell'arco della giornata. Gli appuntamenti vengono suddivisi per Clienti, 
Fornitori, Meeting interni all'ufficio e impegni personali. E' possibile ef¬ 
fettuare ricerche di appuntamenti nell'arco di un giorno, di una settimana, 
di un mese. E' un ottimo complemento alle due procedure precedentemente 
descritte. Funziona con Mac 512K o Plus con doppio drive e ImageWriter 
. Lire 163.500 Iva 9% e spese di spedizione comprese. 

RUNTIME OMNIS3 - AP27/A73 

Serve a utilizzare, tutte le applicazioni create con Omnis3. Lire 
381.500 Iva 9 % e spese di spedizioni comprese 



Compilare e spedire il tagliando qui sotto a Applicando , Editronica srl, Corso Monforte 39, 20122 Milano 
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Vogliate inviarmi i seguenti dischetti: 


N 

klP 


1 

1/ 

1 


N. 

IaIp 


1 

1/ 

1 


N. 

Ia|p 


1 

M 

1 


N. | 

A | P| 

1 

1 

/I 


11 

N. | 

A | P| 


1 

/I 


1 1 

N. | 

A | P| 


1 

/I 


1 1 

N. | 

IaIpi 

1 

u 

l/l 

1 1 

lm 


Sono abbonato al Disk Service: sì □ noD 


Cognome.Nome. 

Via.CAP. 

Città.Prov. 

Scelgo la seguente formula di pagamento: 

UH allego assegno di L. non trasferibile intestato a Editronica Srl. 

CU allego ricevuta di versamento di L.sul cc/p n. 19740208 

intestato a Editronica sii, C.so Monforte 39, 20122 Milano. 

EH pago fin d'ora l’importo di L. con la mia carta di credito 

Bankamericard N.scadenza. 

autorizzando la Banca d’America e d'Italia ad addebitarne l’importo sul mio conto. 

Data.Firma. 

I I Desidero fattura. Il mio codice fiscale/paitita Iva è:. 
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□ Tre programmi integrati in un unico pace 

□ Tre strumenti all’unisono 


□ Tre volte meno caro, a parità di potenza 

□ Tre indiscutibili motivi per acquistarlo 
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ARCHIVIO 

Schedario evoluto e veloce, per¬ 
sonalizzabile. Ricerche multichia- 
ve, sort, aggiornamenti numerici 
automatici, calcolatrice, stampe 
personalizzabili etc. 


GRAFICI 

Tre tipi di grafici: barre, linee, torta 
con personalizzazione di diciture, 
valori e scale 2 o 3 dimensioni. 
Stampe e comparazioni. 


TESTI 

Potentissimo editore di testi con 
righelli, taglia, copia, incolla, giusti¬ 
ficazioni e word-wrap. Passaggio 
dei testi all’archivio per un autenti¬ 
co mail-merge. 
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246.800 



Completamente in italiano - by HL software - Horizontal Line Software 

distribuito da EMS - via Dalmazia,2 - 27029 Vigevano Telefono (0381) 80666 
























Parola di Macintosh 


Microsoft.Word 
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Chiunque abbia dimestichezza con il Macintosh sa perfettamente che Microsoft Word è di gran lunga il miglior 
programma di elaborazione testi disponibile. 

Non è necessario, per apprezzare la potenza di W ord, essere un romanziere alle prese con una storia di 400 pagine: è 
sufficiente non voler investire il proprio tempo su programmi meno efficienti e, oltretutto, più complicati da usare. 
Basta lavorare su più documenti contemporaneamente, componendo ad esempio una relazione con parti di altre già 
scritte in precedenza, oppure inviare una lettera circolare, combinando il testo con la lista degli indirizzi, o gestire, con 
una gamma impareggiabile di possibilità, una stampante laser. 

Per non parlare della possibilità di crearsi un Glossario, cioè un archiv io di parole o frasi di uso ripetitivo, da richiamare 
con un solo tasto. 

Queste caratteristiche, e molte altre ancora, come la sua sorprendente semplicità di uso, fanno di W ord la scelta per 
eccellenza per chi sappia di volere il meglio, e non esiti di fronte ad esso. 

Microsoft Word è disponibile presso tutti gli Apple Centers ed i Distributori Autorizzati Microsoft. 


MICROSOFT 

Potenza e semplicità. Insieme 

MICROSOFT S.p.A. - 20093 Cotogno M? (MI) - A ia Michelangelo, 1 
tei. (02) 2549741 r.a. - fax (02) 2549745 


